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ABSTRACT 


4# 

A Report  Origination  System  (ROS)  has  been 
implemented#  using  an  inexpensive  microcomputer 
system,  to  help  ease  the  adm i n i s t ra t i ve  burden 
facing  Navy  shipboard  managers.  The  system  is  an 
interactive  line  editing  system/  with  optional 
prompting/  which  enables  a person  who  is  unfami- 
liar with  the  report  format  to  respond  to  aueries 
in  order  to  eait  a highly  formatted  report. 
Automatic  error  checking  has  been  performed  usinq 
a previous  edition  of  the  report  as  a basis.  The 
system  allows  creation  of  new  formatted  reports. 
The  use  of  a general  purpose  microcomputer  system 
makes  the  editing  system  affordable  to  a large 
number  of  users  and  also  provides  a general  com- 
puting facility  for  other  uses. 
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INTRODUCTION 


The  ability  to  orocess  information  gatherea  from 
deployed  military  units  throughout  the  world  and  tne  ability 
to  develop  an  accurate  picture  of  the  world  status  at  the 
command  and  control  level  has  been  greatly  enhanced  with  the 
advent  of  the  compute*  The  processing  time  per  amount  of 
data  has  substantially  decreased.  However#  the  Quantity  and 
the  number  of  required  recurrinq  reports  has  increased. 
This  very  trend  was  noted  in  a recent  article  which  appeared 
in  the  Naval  war  College  Review  (11.  The  author  of  the 
article  noticed  a 38X  increase  in  the  number  of  required 
recurring  reoorts  during  the  time  he  served  as  Executive 
Officer  aboard  a destroyer.  This  increase  in  reporting 
requirements  came  during  a time  when  paperwork  reduction 
programs  were  supposedly  in  effect. 

Consider  the  method  by  which  the  reports  have  been  gen- 
erated in  the  fleet.  Presently#  aboard  the  majority  of 
Naval  vessels#  report  generation  follows  a pattern  similiar 
to  the  following.  To  oain  an  overview  of  what  information 
is  expected#  the  originating  officer  (normally  a division 
officer  or  department  head)  refers  to  previously  submitted 
reports  and  to  the  manual  which  calls  for  the  report.  He 
then  proceeds  to  write  out#  in  lonq  hand#  the  report  content 
searching  the  various  appendices  of  the  manual  for  any  cooes 
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or  other  unique  features  reauired  in  the  report.  The  entire 
reoort  will  be  written  out » even  if  much  of  the  information 
remains  unchanged  from  the  previous  report.  This  rough  copy 
will  then  delivered  to  the  Executive  Officer  for  his  recom- 
mendations and  possible  chanqes.  After  approval  by  the  Exe- 
cutive Officer/  the  rough  report  will  be  delivered  to  the 
Commanding  Officer  for  review.  If  the  report  has  been 
approved  by  the  Commanding  Officer/  it  will  be  prepared  in 
the  smooth  for  submission.  If  the  reoort  is  being  sent  out 
as  a messaae*  it  will  be  delivered  to  Radio  Central  where  a 
Radioman  will  type  the  reoort  while  concurrently  making  a 
paper  tape.  If  the  report  is  beinq  sent  as  a letter/  a Toe- 
man  will  type  the  report  in  the  smooth.  The  smooth  and 
rough  copies  will  then  be  delivered  to  the  originator  for 
proof  reading.  If  no  corrections  are  needed/  the  smooth 
report  will  then  be  delivered  to  the  Captain  for  releasing. 

with  the  increasing  administrative  burden  being  gen- 
erated by  the  demand  for  more  reports  together  with  the 
archaic  methods  by  which  reports  have  been  generated/  it  is 
no  wonder  shipooard  manaqers  feel  that  their  operational 
duties  are  being  threatened  by  an  administrative  overload 

m . 

This  thesis  proposes  the  use  of  an  inexpensive/  mul- 
tipurpose/ microcomputer  system  as  a tool  capable  of  assist- 
ing the  shipooard  manager  in  meeting  this  challenge.  The 
main  objective  of  such  a system  is  to  let  the  system  take 
over  the  responsibilities  of  report  formatting/  encoding/ 
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and  error  oetection,  thereby  reducing  the  time  that  the 
reoort  originator  must  soend  generating  reoorts. 

As  a user  develops  a familiarity  w i t h the  system  execu- 
tion! he  must  be  given  the  option  of  selecting  the  amount  of 
promoting  information  he  is  to  receive.  A user  who  is 
unfamiliar  with  system  execution  will  have  to  be  prompted  as 
to  what  information  he  must  enter. 

A summary  of  the  events  leading  to  the  proposal  of 
using  a computer  prompted  reporting  system  will  be  presented 
in  Chapter  II.  Chapter  III  outlines  the  objectives  of  a 
Report  Origination  System  (ROS)  and  discusses  the  hardware 
and  software  consioerations  of  implementing  such  a system. 
A summary  of  recommendations  for  further  development  of  ROS 
has  been  presented  in  Chapter  IV.  Some  concluding  remarks 
about  ROS  are  contained  in  Chapter  V. 
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II.  BACKGROUND 


For  some  timer  concern  over  the  growing  amount  of 
oaoerwork  has  been  receiving  .increased  attention  at  higher 
command  levels.  This  chapter  summarizes  recent  proposals 
which  have  resulted  from  this  concern. 

A.  RECENT  EFFORTS  TO  REDUCE  REPORTING  REQUIREMENTS 

t 

1.  Composite  reporting  (COMPREP) 

Composite  reporting  was  an  attempt  to  reduce  the 
i number  of  reauired  operational  reports  by  combining  common 

reports  into  one  formatted  report.  A format  tea  report  is 
one  in  which  the  sequence  and  position  of  the  inoividual 
data  elements  have  meaning.  The  data  in  the  report  has  usu* 
ally  been  cooed  to  reduce  the  amount  of  information 
transmission  ana  to  allow  automatic  processing  at  report 
receiving  sites. 

In  1R71  a COMPREP  system  was  designeo  and  testeo  by 
Commander  First  Fleet.  This  system  appeared  to  have  consid- 
erable merit.  However*  due  to  limited  resources*  the  system 
design  had  not  been  sufficiently  developed  to  prove  it  an 
effective  management  information  system.  The  main  defi- 
ciency of  the  system  was  a coded  output  format  which  was 
difficult  to  understand.  Also*  there  was  no  automated 
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i nherent -error  checking  or  correctina  caoability. 

2.  X/C  13  Increment  I (COMPREP) 

In  1975  an  improver!  COMPREP  system  (21  was  tested 
and  evaluated.  The  improvements  were: 

a.  to  provide  operator  intervention  in  order  to  allow 
on  line  error  correction  caDabilities  at  the  report  receiv- 
ing site. 

b.  to  provide  formal  classroom  as  well  as  hands  on 
training  to  fleet  personnel  users  and  receiving  site  editing 
personnel . 

c.  to  utilize  preprinted  forms  and  a single  user's 
handbook  in  order  to  ease  the  report  preparation  burden. 

T<_st  .g  and  evalutation  of  the  proposed  system  was 
conducted  by  a private  contractor  using  four  units  of  the 
fleet  and  the  necessary  shore  supporting  activities.  The 
main  purpose  of  the  test  was  to  show  that  shipboard  data 
collection,  message  formatting,  approval,  release  ana  dis- 
tribution to  ashore  receiving  facilities  could  work  effec- 
tively. 


The  recommendation  which  came  out  of  the  evaluation 
phase  was  that  the  developmental  CCMPR£P  svtem  not  be 
adopted,  even  though  it  met  the  major  goals.  This  recommen- 
dation was  made  because  COMPREP  was  not  an  integrated 
reporting  system  which  used  easily  drafted,  readaole,  and 
flexibly  formatted  messages. 


3.  Composite  Operations  Reporting  System  (CORS) 


Following  X/C  13  Increment  I*  the  basic  goals  of 
COMRRtP  were  re-examined.  Rased  on  the  results  of  this  re- 
examination the  CORS  effort  was  initiated  in  1976. 

The  ourcose  of  CORS  was  to  describe  alternatives  of 
implementing  a reporting  system  which  would: 

a.  provide  timely  and  accurate  data  to  all  cognizant 
levels  of  command . 

| 0.  minimize  the  reporting  burden  on  the  originator  by 

integrating  the  reouirements  of  four  independent  reporting 
systems  (employment  schedule*  movement  report*  casualty 
report*  and  Navy  force  status  report!  into  one  simple*  non- 

* 

redundant  reporting  system. 

1 

c.  provide  significant  improvements  in  the  correct- 
ness* readability  of  the  information*  and  communications 
system  loading. 

The  Naval  Electronics  System  Command  (NAVELEX),  with 
guidance  from  the  the  Office  of  the  Chief  of  Naval  Opera- 
tions (UPNAV)  CORS  Steering  Committee*  proposed  implementa- 
tion alternatives  to  meet  the  objectives.  Of  twelve  origi- 
nal proposals*  four  were  selected  by  the  CORS  committee  for 
further  st  udy . ( 31 

The  four  alternatives  as  they  apply  to  the  report 
originator  were : 
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a.  A l ternat i ve  1 

This  alternative  would  reauire  the  originator  to 
manually  draft  simple,  readable,  formatted  messages  using 
predefined  forms  and  cecuion  logic  tables. 

b.  Alternative  2 

This  alternative  was  identical  to  Alternative  1 
exceot  that  the  manually  drafted  messages  would  be  replaced 
by  a Report  Origination  System  (ROS)  which  would  guide  the 
message  drafter  in  generating  error-free  CCkS  messages  via 
interactive  computer  prompting  techniaues. 

c . A | ternat i ve  3 

This  proposal  was  an  i mp 1 emen t a t i on  of  the  con- 
cepts recommended  from  the  CO^PREP  tests.  It  would  involve 
the  use  of  an  abbreviated  check  list  to  ensure  t«at  tne 
information  reguired  by  the  command  chain  would  be  provided. 
The  report  would  be  written  in  narrative  or  abbreviated  nar- 
rative English  witn  minimal  formatting  reoui red.  The  edit- 
ing and  formatting  functions  would  be  done  by  data  entry 
clerks  working  interactively  with  the  incoming  messaaes  at 
the  receiving  sites. 

d.  Alternative  4 

This  alternative  was  identical  to  Alternative  3 
exceot  that  the  editing  ana  formatting  functions  would  be 
done  automatically  at  the  receivina  site  by  using  a special 
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purpose  front-end  text  processor 


The  CORS  steering  committee  was  also  asked  to  make  a 
final  recommendation  to  the  Chief  of  Naval  Operations  as  to 
which  alternative  would  be  feasible  for  implementation.  The 
committee  selected  alternative  1 as  the  method  to  implement 
since  it  provided  earliest  capability.  The  committee  did 
point  out  that  atemat  i ve  2 provided  the  best  benefits,  but 
due  to  the  cost  of  the  eouioment  in  relation  to  immediate 
benefits  this  cost  could  not  be  justified  at  this  time. 

It  was  the  purpose  of  this  thesis  to  demonstrate  that 
alternative  2 can  be  implemented  with  a modest  and  inexpen- 
sive (54000)  microcomputer  based  system.  This  system  can 
grow  to  a more  Comdex  system  when  its  usefulness  has  been 
demonstrated.  This  system  gives  immediate  feedback  to  the 
report  originator  so  that  errors  can  be  ( detected  and 
corrected  before  they  contaminate  the  data  base.  The  system 
generates  the  proper  format  for  the  reports  and  the 
receoients  do  not  need  to  spend  the  effort  to  edit  or  format 
the  incoming  data. 
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III.  A REPORT  ORIGINATION  SYSTEM  (ROS) 


As  pointed  out  in  Chapter  II  the  CORS  steering  commit- 
tee prooosed  an  automated  report  origination  system  to  ease 
the  burden  of  report  generation.  The  main  objection  to 
immediate  implementation  was  that  the  cost  of  the  equipment 
could  not  be  economically  justified  for  only  report  genera- 
tion. This  chapter  outlines  the  design  objectives  and  an 
implementation  scheme  of  a report  origination  system  based 
on  a microcomputer.  The  system  provides  a low  cost  imple- 
mentation of  the  reporting  system  and  provides  smaller  ships 
with  a general  purpose  computing  facility  useable  for  many 
other  applications. 

A.  ROS  DESIGN  OBJECTIVES 

1.  Ease  . of  Use 

A shipboard  report  origination  system  must  not 
reauire  extensive  training  to  operate  the  system.  The  sys- 
tem should  be  self-helping  and  tolerant  of  operator  errors. 

2 . Adapt  ab i 1 i t y 

As  the  user  becomes  familiar  with  ROS  program  execu- 
tion* he  does  not  reauire  as  much  prompting  as  an  unfamiliar 
user.  Ihe  user  is  given  control  of  several  levels  of 
prompting.  The  user  should  also  have  the  option  of 
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displaying  the  report  in  the  normal  coded  form*  as  it  would 
Oe  sent  in*  or  in  a decoded  interpreted  form. 

3 . App 1 i c ab i l i t v 

To  serve  as  a useful  tool*  R05  must  be  applicable  to 
a wide  spectrum  of  reporting  formats*  in  soite  of  the  diver- 
sity and  non-standardization  of  reaui red  reports. 

4.  Error  Detect i on 

The  system  must  conduct  error  analysis  throughout 
the  execution  of  the  program.  If  errors  are  Detected,  the 
user  must  have  the  ability  to  correct  the  errors  without 
having  previous  work  Destroyed. 

5.  Life  cycle  costs 

The  system  should  be  tailored  to  affordable 
hardware.  Considerations  must  be  given  to  Purchase  or  ren- 
tal costs  as  well  as  hardware  maintenance  costs.  The  system 
should  also  be  expandable  when  its  general  usefulness  is 
d i sco ve  r eo . 

B.  STSTEM  OVERVIEW 

1.  Target  Report  - NAVFORSTAT 

Reports  submitted  by  fleet  units  take  on  varying 
structures*  from  strictly  formatted  reports  with  various 
coding  schemes  to  reports  written  in  the  natural  language. 
It  would  be  extremely  difficult*  if  not  impossible*  to 
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design  and  implement  an  easy  to  use  system  which  would  be 
applicable  to  all  types  of  reports.  Consequent  1 y > the  Navy 
Force  Status  (NAVFORSTAT)  reoort  was  chosen  as  a typical 
operational  reoort  which  contains  the  basic  structures  which 
a reoort  origination  system  must  deal  with.  The  data  ele- 
ment was  such  a structure  and  was  widely  used  in  the  ROS 
program. 

2.  Data  Element 

A data  element  within  the  ROS  program  consists  of 
four  parts: 

a.  Data  Label 

A data  label  is  an  unique  recoqn i zeab 1 e identif- 
ier for  the  data  element. 

b.  Code  Area 

The  code  area  is  the  reportable  information 
which  is  pertinent  to  the  data  label. 

c.  Error  Command  Area 

The  error  commands  used  to  check  input  informa- 
tion at  execution  time  are  stored  in  the  error  command  area. 

d.  Prompt i nq  Area 

Tnis  area  contains  the  questions  which  may  be 
used  to  solicit  the  necessary  information  to  generate  the 
reoort  . 
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i.  Program  Structure 


A brief  introduction  to  the  software  programs  making 
up  the  Report  Origination  System  follows: 

a . ROS 

This  is  the  main  program  with  which  the  user 
originates  desired  reports.  The  ROS  program  uses  as  input  a 
data  base  (OAT)  file  ana  produces  as  output  an  updated  OAT 
tile  ana  a message  (MSG)  file.  Appendix  A contains  a user’s 
guide  for  executing  ROS  on  the  Intellects  microcomputer  sys- 
tem. 

b.  CREATE 

The  utility  program  CREATE  was  used  to  create  a 
OAT  file.  It  was  assumed  that  the  commana  reauesting  a 
report  will  create  the  pertinent  DAT  file  and  send  a copy  of 
this  DAI  file  to  all  commands  reauired  to  submit  the  report. 
In  this  manner1  the  requesting  command  would  be  able  to 
specify  the  report  format/  the  prompting  Questions#  and 
degree  of  error  analysis.  The  user  interested  in  creating  a 
DAT  file  for  a report  which  may  be  uniaue  to  his  unit  or  for 
a report  in  which  the  DAT  file  doesn't  exist#  may  do  so  by 
referring  to  the  user's  manual  contained  in  Appendix  A. 

c . Line  Editor 

A line  editing  procedure#  LEDIT#  was  implemented 
in  the  programs  ROS  and  CREATE.  This  line  editor  allows  the 


user  the  capability  of  editing  input  information. 

U . Fites 

a.  Data  Base  (OAT) 

A DAT  file  must  exist  for  each  report  originated 
with  the  aid  of  ROS.  The  DAT  file  will  either  be  furnished 
by  the  command  requiring  the  report  or  can  be  created  using 
the  CREATE  program. 

The  first  record  (128  bytes)  of  the  DAT  file  has 
been  reserved  for  the  record  mao.  The  record  map  serves  as 
the  data  element  directory  and  has  been  used  to  randomly 
access  data  elements  within  the  DAT  file.  Subseauent  ^ 
records  of  the  DAT  file  contain  the  components  of  the  data 
elements  in  a rotating  pattern  of:  code  and  error  command 
area  (one  record)  followed  by  the  promoting  information 
(variable  number  of  records).  A portion  of  a DAT  file  has 
been  expanded  in  Figure  1 to  show  the  structure  of  the  file. 

b.  Message  (MSG) 

The  message  file  is  created  during  the  execution 
of  the  ROS  program  and  contains  the  report  which  may  be  sub- 
mitted. The  code  area  portion  of  the  data  element  will  make 
up  the  entries  of  the  m$g  file.  The  carriage  return  and 
line  feed  characters  are  appended  to  the  end  of  each  entry 
to  allow  line  by  line  printinq  of  the  data  contained  within 
t he  MSG  file. 
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C.  HARDWARE 

Tne  hardware  system  which  was  used  to  implement  hOS  con- 
sisted of: 

1 . Compu  ter 

An  Intellec-8  mainframe*  which  was  based  on  Intel's 
8080  microcomputer,  with  16K  bytes  of  random  access  memory. 

2 . Display  Terminal 

A Oatamedia  Elite  2500  cathode  ray  tube  (CRT) 

display. 
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3 


A u x i 1 i ary  Menory 


A Shugart  dual  drive  floppy  disk  system. 

The  motivation  behind  the  selection  of  this  equip- 
ment was  availability.  This  system  does,  however,  point  the 
economic  benefits  of  such  a system.  Currently  the  cost  for 
a system  like  this  is  approximately  56000.  Of  course,  the 
cost  of  a system  may  vary  depending  upon  the  capabilities  a 
user  desires.  It  was  not  the  Purpose  of  tni s thesis  to  do  a 
cost  analysis  of  available  equipment,  but  rather  to  demon- 
strate that  a Report  Origination  System  may  be  implemented 
on  a relatively  inexpensive  system. 

D.  ROS  SOFTWARE 

The  ROS  software  packaqe  consists  of  the  main  program 
and  a utility  program  CREATE.  The  ROS  program  was  designed 
to  make  changes  to  the  OAT  file  and  CREATE  was  designed  to 
create  a DAT  file  if  one  did  not  exist.  This  section  deals 
strictly  with  the  software  program  ROS  whereas  CREATE  will 
be  discussed  in  Section  E. 

The  ROS  program  consists  of  six  modules: 

1.  Operating  System  Interface 

Certain  input,  outout  and  utility  functions  were 
carried  out  through  system  calls  to  the  resident  Monitor 
Control  Program  (CP/M).  The  detailed  instructions  pertain- 
ing to  operation  under  CP/M  may  be  found  in  the  CP/M 


22 


Interface  Guide(7).  Only  the  actual  functions  which  are 
used  within  the  ROS  software  will  be  discussed  here. 


a.  Console  Out  out 

(1)  Printchar  - OutDuts  ASCII  characters  to  the 
disc  lay  terminal. 


b.  Disks  Input/Outout 

(1)  Search  - Search  the  disk  directory  for  a par- 
ticular file. 

(2)  Open  - Make  a file  ready  for  further  opera- 
tions. 


(3)  Close  - Update  the  directory  entry  for  the 
particular  file  after  processing  operations  are  completed. 

(a)  Diskread  - Read  the  next  record  (120  bytes) 
from  the  referenced  file  directly  to  memory  area  specified 
by  direct  memory  access  (DMA). 

(5)  Diskwrite,-  write  a record  from  the  accessed 
address  in  memory  to  the  referenced  file  on  the  disk. 


C.  Utility  Functions 

(1)  Set  DMA  - Set  the  126  bytes  buffer  address  at 
which  subsequent  disk  input  and  output  operations  will  take 
place. 

(2)  Lifthead  - Lift  the  disk  read/write  head. 


2.  Initialize  Moou 1 e 

The  main  function  of  the  initialize  module  was  to 
initialize  main  memory  with  the  data  elements  selected  by 
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the  user  to  be  included  in  the  report.  The  submodules  that 
carried  out  this  function  were? 

a . File  Uperat i ons 

The  proper  DAT  file*  if  it  exists*  is  opened  and 
a MSG  file  is  made . 

b.  Selecting  the  working  Set 

To  set  up  the  working  set*  the  record  map  is 
read  into  memory  and  the  data  labels  are  displayed*  one  line 
at  a time*  on  the  CRT  display.  The  user  may  then  select  the 
data  elements  which  are  to  be  included  in  the  report.  If  a 
data  element  is  selected*  the  number  of  records  which  the 
data  element  occupies  on  the  disk  is  calculated  and  stored 
in  the  working  mao  along  with  the  disk  location  information, 
when  all  desired  data  labels  have  been  selected*  the  user 
may  enter  "S"  to  stoo  further  display  of  the  data  laoels. 
At  this  Point*  the  working  map  contains  the  pertinent  disx 
accessing  information  reauired  to  process  the  recort . 

c.  Initialize  Memory 

The  information  pertaining  to  the  selected  data 
elements  is  read  into  available  memory  until  either  memory 
is  filled  or  all  selected  data  elements  have  been  read.  If 
memory  is  filled*  a logical  variable  will  be  set  to  true 
indicating  that  there  are  more  data  elements  to  be  read  from 
the  disk.  After  the  read  operation  is  completed*  pointers 
will  be  establised  to  allow  referencing  of  the  various  data 
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element  fields  (code*error  ana  prompting).  These  pointers 


are  aligned  such  that  each  area  oointer  will  reference  com- 
mon suofields.  In  figure  1*  for  example*  the  Question  con- 
tained in  subfiela  1 of  the  prompt  area  is  the  prompting 
information  required  to  solicit  the  necessary  aata  to  be 
inserted  in  subfield  1 of  the  code  area.  Likewise*  the  sol- 
icited information  is  to  be  checked  for  errors  according  to 
the  error  commands  contained  in  suofield  1 of  the  error 
area.  This  pointer  alignment  is  maintained  throughout  the 
execution  of  the  WOS  program. 

3.  Editing  with  Instructions 

The  main  function  of  the  edit  module  was  to  solicit 
the  necessary  information  from  the  operator  which  may  be 
correctly  entered  into  the  report  text.  This  function  was 
carried  out  by  the  following  submodules: 

a.  Solicit  Information 

The  prompting  question  is  displayed  on  the 
screen.  I he  operator  enters  a response  at  the  keyboard. 

b . Editing 

The  response  is  checked  for  errors  according  to 
the  error  commands  pointed  to  by  the  error  pointer.  (The 
error  analysis  technioue  will  be  discussed  in  Section  5 as 
it  applies  to  both  editing  schemes.)  If  an  error  occurs*  a 
diagnostic  warning  is  qiven  and  the  user  may  reenter  the 

When  the  solicited  information  is 
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corrected  response 


df-emed  correct?  it  is  saved  in  a code  buffer  for  updating 
the  DAT  file  ana  entry  into  the  reoort. 

4.  Editing  without  Instructions 

In  this  environment?  the  user  acts  directly  upon  the 
coded  information.  This  allows  the  experienced  user  auick 
access  to  subfields  requiring  changes  without  having  to  go 
through  a prolonged  question  and  answer  period.  The  user 
uses  the  features  of  the  line  editor  (Appendix  A]  in  editing 
the  cooed  information.  driefly?  the  line  editor  uses  two 
buffers:  the  old  and  new  buffers.  Information  may  oe  passed 
between  the  buffers  using  the  special  characters  defined  to 
accomplish  different  functions.  These  special  characters 
are  defined  in  T ab 1 e 1 of  Appendix  A. 

a.  Information  Entry  and  Editing 


A copy  of 

the 

coded 

information 

i S 

duo  1 i c a t ed 

i n 

the 

old  buffer  of 

the 

line 

ed i tor. 

The 

data  1 abe 1 

i s 

immediately  moved  to 

the 

new  buffer  where 

i t 

is  protected 

f r om 

editing  by  the  user. 

The 

user  may  now 

duo 

1 i c a t e any 

o r 

all  information  from  the  old  buffer  to  the  new  buffer  or  may 
enter  new  data  from  the  keyboard.  A carriage  return  signals 
the  program  that  the  editing  function  is  complete  and  error 
analysis  may  beqin.  After  the  error  analysis  is  complete? 
the  new  buffer  contents  (new  information)  is  used  to  update 
the  code  area  of  the  data  element  in  the  same  manner  as  in 
editing  without  instructions. 
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Error  Analysis 


Althouqh  error  analysis  is  closely  connected  with 
the  eaiting  process*  it  actually  exists  as  a seoarate  module 
in  the  proaram.  The  function  of  the  error  analysis  module 
was  to  prevent  contamination  of  the  data  case  by  entry  of 
incorrect  data.  No  attempt  has  been  made  to  list  all  possi- 
ble sources  of  errors  and  generate  countermeasures  against 
the  occurrence  of  these  errors  but  rather,  to  develop  a sys- 
tem which  may  be  expanded  as  experience  may  reaui re.  Thus 
the  error  analysis  module  is  broken  down  into  submodules  of: 
command  recognition  and  command  execution. 

a.  Command  Recognition 

The  error  command  (one  alphaoetic  or  numeric 
ASCII  character)  is  compared  to  entries  contained  in  the  Do 
command  (DOSC^D)  procedure.  when  the  proper  match  occurs, 
an  appropriate  procedure  call  will  be  made.  An  error  com- 
mand listed  in.  the  OAT  file  for  which  no  execution  pro- 
cedures exist  within  the  ROS  program  is  an  error  introduced 
at  the  time  the  DAT  file  was  created.  If  no  match  occurs 
during  execution,  a diagnostic  will  be  given  ana  execution 
will  terminate.  In  order  to  maintain  the  pointer  alignment 
to  each  subfield*  a null  error  command  (0)  is  used.  A match 
on  the  null  command  simply  returns  program  flow  to  the  cal- 
ling procedure  without  doing  any  error  analysis. 


27 


b.  Command  Execution 


This  submodule  consists  of  all  error  diagnostics 
which  may  be  called  to  carry  out  the  error  analysis.  It  is 
broken  down  into  functional  units  each  of  which  is  a pro* 
cedure  designea  to  check  for  certain  error  conditions.  The 


error  analysis 

c aoab i 1 

i t y may 

be  extened 

by 

inserting  new 

commands  i n 

the 

DOSCMD 

procedure 

and 

entering  the 

corresoondinq  procedures  to  check  the  data  for  the 
occurrence  of  the  error.  A difference  between  the  error 
analysis  techniques  applied  to  the  input  and  editing  modes 
should  be  pointed  out.  In  the  instructional  mode*  error 
analysis  is  applied  to  one  subfield  for  each  call  to  t"e 
error  module*  whereas  in  the  non-instructional  mode  all  sub- 
fields of  the  code  area  are  analyzed  with  one  call  to  the 
error  analysis  module. 

o.  Output 

After  all  the  data  elements  within  memory  have  been 
processed*  an  uodatea  version  of  the  coded  information  will 
exist  in  memory.  This  coded  information  serves  as  the  basis 
for  updating  the  DAT  file  and  actual  creation  of  the  report. 
Since  the  coded  portion  is  the  only  data  to  have  changed 
during  execution  of  the  ROS  program,  it  is  the  only  informa- 
tion required  to  be  written  to  the  OAT  file.  Utilizing  the 
working  map*  whicn  gives  the  record  number  within  the  OAT 
file  where  the  code  record  must  be  written*  the  proper 
access  may  be  made  and  the  undated  record  written  to  the 


proper  DAT  file.  A copv  of  the  coded  information  with 
appended  carriage  return  and  line  feed  characters  is  saved 
in  a temporary  buffer  until  a full  record  has  been  accumu- 
lated. This  record  is  then  written  to  the  MSG  file. 

After  completion  of  the  output  phase*  if  more  data 
elements  exist  to  be  processed,  the  elements  will  be  read 
into  memory  and  the  pointers  will  be  reset.  The  editing 
process  will  continue  until  all  data  elements  have  been  pro- 
cessed. After  all  data  elements  have  been  processed,  the 
DAT  file  and  the  MSG  file  will  be  closed. 

E.  CREATE 

The  utility  program  CREATE  allows  the  user  the  ability 
to  create  a data  base  file  with  which  a particular  report 
may  be  generated.  The  program  was  designed  with  the  thought 
that  persons  familiar  with  computers  at  the  command  reguest- 
ing the  report,  would  create  the  aoprooriate  DAT  file  and 
forward  a copy  to  all  reporting  commands.  Thus  the  program 
execution  is  somewhat  more  cryptic  and  "maaical".  However, 
this  is  not  meant  to  discourage  the  shipboard  manager  from 
using  the  system.  A user's  guide  is  provided  [Appendix  A] 
and  the  system  execution  may  be  mastered  in  a short  time. 

The  DAT  file  consists  of  a directory  element,  the  record 
mao,  and  repetitive  entries  of  code,  error  commands  and 
promoting  information.  The  entries  are  organized  into 
records,  each  record  being  128  bytes.  The  record  map  occu- 


pies  the  first  record  of  the  file.  The  cooe  area  ana  the 
error  commands  for  each  data  element  share  one  record.  The 
code  area  is  located  at  the  first  of  the  record  whereas  the 
error  commands  are  located  at  the  end  of  the  record.  Any 
unused  space  between  the  code  and  error  areas  contains 
binary  zeroes.  The  prompting  area  may  occupy  more  than  one 
record.  Since  the  code  area  begins  on  a record  boundary  and 
together  with  the  error  commands  will  take  up  no  more  than 
one  record*  the  prompt  area  will  always  begin  on  a record 
boundary.  This  structure  allows  random  access  to  the  record 
where  each  data  element  begins  within  the  file.  To  effect 
this  random  access*  the  data  element  identifier#  the  data 
label*  is  stored  within  t^e  record  map*  along  with  the 
necessary  disk  locating  information.  It  then  becomes  a 
matter  of  reading  the  record  mao*  selecting  the  particular 
data  label  and  setting  up  to  read  the  information  of  the 
desired  data  element. 

The  CREATE  program  consists  of  the  following  modules: 

1.  Initialize 

The  function  of  the  initialize  module  was  to  make  a 
OAT  file*  if  one  aid  not  already  exist.  If  a OAT  file 
already  exists*  a diagonstic  warning  will  be  given  ana  pro- 
gram execution  will  cease.  The  user  may  then  remove  the  OAT 
file*  if  no  longer  desired*  or  may  use  it  as  input  for  the 
ROS  program  to  generate  the  desired  report. 
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Assuming  a previous  OAT  file  does  not  exist,  a OAT 

l 

file  will  be  made.  Specific  pointers  to  available  memory 
(memory  between  the  CREATE  program  ana  the  resident  operat- 
ing system)  will  be  established  with  the  first  128  bytes  of 
available  memory  being  reserved  for  the  record  map.  All 
data  to  be  entered  in  the  OAT  file  will  be  entered  in  a 
sequential  manner  between  the  recoro  map  and  the  operating 
system. 

<?.  Input 

After  the  DAT  file  has  been  ooened  and  the  pointers 
set,  the  user  is  free  to  enter  aata  into  the  DAT  file. 
Since  the  DAT  file  is  constructed  in  memory  in  a sequential 
manner,  the  entries  must  be  in  the  order  of  code,  error  com- 
mands, and  prompt i ng  information.  The  features  of  the  Line 
Editor  lApoendix  A)  are  used  to  edit  the  entered  text.  when 
the  user  is  satisfied  with  the  oarticualar  entry,  a special 
character  defined  in  Table  of  Appendix  A is  entered  ana  the 
entered  data  is  stored  in  the  DAT  file  memory  area. 

Editing  and  error  analysis  is  left  up  to  the  user. 
The  features  of  the  Line  Editor  allow  ample  capabilities  to 
maWe  corrections  to  entered  data.  Once  the  special  charac- 
ter, denoting  the  type  of  entry,  is  given,  the  input  data  is 
stored  and  the  user  no  longer  has  access  to  it. 
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3 . Finish 


If  available  memory  is  filled  before  all  data  ele- 
ments  have  been  entered#  the  existing  memory  image  of  the 
DAT  file  will  be  written  to  the  disk  and  the  pointers  reset. 
After  all  data  elements  have  been  entered#  a back  slant  may 
be  entered  to  indicate  end  of  file.  At  this  time  the  memory 
image  of  the  DAT  file  is  written  to  the  disk  file  and  the 
DAT  file  is  cl osed. 
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IV.  RECOMMENDATIONS 


The  implementation  of  a Report  Origination  System  1R0S) 
designed  to  help  ease  the  administrative  Durden  facing  the 
shipboard  manager  has  been  discussed.  This  has  been  the 
first  known  attempt  of  implementing  such  a system  and  subse- 
quently some  arbitary  design  decisions  were  made  that  have 
become  apparent  weak  points.  In  addition,  complete  develop- 
ment of  the  system  has  been  curtailed  due  to  time  con- 
straints. A follow-on  thesis  aimed  at  further  development 
is  planned  and  therefore  this  chapter  summarizes  some  of  the 
areas  that  could  be  further  developed. 

A.  DISK  DIRECTORY  (RECORDmAP) 

Currently  the  record  map  is  limited  to  128  bytes  which 
is  insufficient  space  for  storage  of  long  or  a large  number 
of  data  labels.  Admittedly,  this  method  was  an  ad  hoc  pro- 
cedure and  a more  efficient  method  is  required.  One  possi- 
ble method  may  be  to  use  a hash  coding  scheme  to  reduce  the 
size  of  the  entries. 

B.  FIXED  DATA  LABEL  LENGTH 

Presently  all  data  labels  must  be  of  eoual  length 
throughout  the  DAT  file.  The  CREATE  user  has  the  resDonsi- 
bility  for  ensuring  that  the  length  of  all  data  labels  will 
be  the  same.  Although  this  restriction  simplifies  program 
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coding  and  decreases  memory  usage  (important  considerations 
in  microcomputer  usage)  it  was  considered  much  too  restric- 
tive for  general  acceptance.  A prime  consideration  for 
fined  data  lengths  was  for  ease  of  insertion  in  the  record 
map.  If  the  method  of  maintaining  the  disk  directory  were 
changed,  the  emphasis  on  using  a fixed  data  label  length 
would  lessen.  Another  use  of  the  data  laoel  must  be  con- 
sidered before  removing  the  restriction.  In  setting  up  the 
editinq  buffers  for  subseauent  edit  operations,  the  data 
labels  are  moved  to  the  appropriate  buffers  dependent  upon 
the  fixed  data  label  size.  Thus,  to  continue  to  use  this 
method  of  editinq,  an  alternative  approach  to  moving  vari- 
able length  data  labels  must  be  sought.  Une  method  to  han- 
dle the  variable  length  problem  might  be  to  mark  the  eno  of 
the  data  label  with  a special  character.  Characters  could 
then  be  transferred  between  buffers  until  this  special  char- 
acter is  encountered. 

C.  LACK  UF  MNEMONICS  USE  IN  THE  LINE  EDITOR 

The  line  editor  commands  have  no  mnemonic  value.  This 
resulted  as  a trade-off  for  programming  efficiency.  Rather 
than  use  a series  of  comparing  statements  to  identify  the 
input  character,  it  was  decided  to  use  a sequential  qroun  of 
characters  and  index  to  the  correct  procedure  call  bv  a case 
statement.  A table  which  translates  mnemonic  code  to  the 
code  used  in  this  program  could  be  added  to  make  the  line 
editor  similiar  to  other  editing  systems. 


0 . BACK  UP  FILES 


No  provisions  have  been  provided  to  set  up  a back  up 
file.  This  could  be  accomplished  by  copying  the  OAT  file  to 
another  file  (BAK)  before  the  editing  of  the  OAT  file 
beq  ins. 

E.  OTHER  SUPPORTIVE  SOFTWARE 
1 . Headi ngs 

Software  should  be  developed  to  assign  heading 
information  (date  time  arouo»  addressees*  classification, 
etc.).  This  could  be  patterned  after  current  techniques 
(Aaaressal  Indicator  Group)  in  use  in  the  Navy. 

i. . Optional  Display  List 

As  noted  in  the  objectives  of  PQS,  a user  should 
have  the  option  of  displaying  reported  information  in  cooed 
or  interpreted  form.  This  option  has  not  been  i ncoroorat ed, 
but  should  be  relatively  easy  to  oo.  By  utilizing  a pointer 
alignment  scheme,  such  as  previously  discussed,  the  prompt- 
ing question  together  with  the  subsequent  response  could  be 
displayed  for  each  data  element  edited  during  the  session. 
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V.  CONCLUSIONS 


ROS  provided  an  interactive  feed  back  loop  of  computer 
generated  promoting  instructions!  user  responses  ana  error 
analysis.  This  system  permits  error  Detection  and  correc- 
tion to  be  carried  out  by  individuals  who  generate  the 
report  ana  were  therefore  most  likely  to  recognize  serious 
errors  in  report  content.  Errors  in  format  were  unlikely 
because  format  design  would  be  generated  in  the  computer. 
In  the  present  method*  the  recioient  of  the  report  was  asked 
to  perform  error  Detection.  The  recioient  was  generally 
able  to  detect  errors  in  format  only  ana  was  unacle  to 
correct  the  errors  in  content  without  additional  information 
from  the  report  originator. 

HOS  was  an  easy  to  use  system  with  ouilt-in  flexibil- 
ity. As  the  user  becomes  familiar  with  the  report  struc- 
ture* he  may  choose  to  limit  the  amount  of  prompting 
instructions  he  will  receive. 

Although  ROS  was  designed  using  the  NAVFORSTAT  report 
as  a pattern,  it  will  be  applicable  to  any  report  which  uses 
line  by  line  formatting.  Since  most  Navy  reports  fit  into 
this  category*  ROS  should  be  aoolicable  to  a wide  spectrum 
of  reports. 
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The  secondary  benefits  of  havinq  an  expandable#  mul- 
tipurpose computing  facility  aboard  naval  vessels  can  not  be 
ignored.  &s  shiDboaro  users  become  familiar  with  the  com- 
puting potential  available#  the  base  of  application  develop- 
ment will  be  increased  by  orders  of  magnitude.  Many  appli- 
cation programs  have  already  been  developed  at  tne  Naval 
Postgraduate  School  and  are  readv  for  further  testing. 

The  Report  Origination  System  (ROS)  has  been  imple- 
mented on  an  inexpensive  microcomputer  system  and  shown  to 
be  an  effective  tool  in  helping  the  shipboard  manager  meet 
the  challenge  of  reauired  recurring  reports. 
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APPENDIX  A 


User's  Guide 


PQS  Program 


1 . I n t poOuc t 1 on 

The  ouPDose  of  this  User's  Guiae  is  to  assist  the  user 
in  generating  reguired  recurring  reoorts  through  the  use  of 
the  Heoort  Origination  System  (ROS).  The  details  of  the 
program  logic  mav  be  f ouna  in  the  body  of  the  thesis 

(Chapter  i 1 1 1 . This  guide  is  a step  by  step  overview  of 
what  the  user  should  expect  while  executing  ROS.  This  guide 
describes  implementation  on  an  Intellec-8  microcomputer  sys- 
tem which  uses  the  resident  operating  system. 

2 . Initialization 

The  program  ROS  is  initiated  by  typing 
ROS  <filename>  <cr> 

<cr>  stanas  for  carriage  return.  Tne  <filename>  must  be  tne 
name  of  a data  base  (CAT)  file  which  exists  on  the  diskette. 
It  is  assumed  that  the  command  reauest i ng  a particular 

report  will  supply  the  user  with  a diskette  containing  the 

pertinent  DAT  file.  However,  if  the  user  is  setting  up  a 

file  to  handle  a recurring  report  unique  to  his  command  or 
if  he  has  not  been  furnished  a DAT  file,  he  may  create  the 
DAT  file  by  referencing  Section(7]  of  this  guide. 


3 . Execution 


If  the  opocer  DAT  file  exists 


it  will  be  opened  and 


the  data  labels  contained  within  the  file  will  oe  displayed 
on  the  CW1  screen.  The  user  may  now  select  (oy  entering  a 
" Y " or  M N " under  the  data  label)  the  data  elements  which  are 
to  be  included  in  the  report.  At  this  point  the  user  will 
be  queried  whether  or  not  he  wishes  to  be  prompted.  A user 
who  is  unfamiliar  with  computer  line  editing  procedures 
should  select  to  be  promoted.  After  the  user  becomes  fami- 
liar with  the  line  editor  ( Sec t i on  ( tt 1 J / he  may  find  it 
easier  to  qenerate  a report  by  using  the  limited  promoting 
mode.  A positive  response  ("Y")  to  this  Query  will  allow 
the  user  to  edit  the  coded  area  of  the  report  directly  using 
the  features  of  the  line  editor  (Sec t i on  (tt) ] . If  a negative 
response  ( " N " ) is  given/  the  user  will  be  promoted  by 
appropriate  questions  to  solicit  the  necessary  information 
for  coding  into  the  report. 

A.  Limited  instruction  Mode 

If  the  user  selects  to  edit  the  coded  information 
directly/  the  coded  information  last  submitted  will  be 
entered  into  the  old  buffer  and  the  data  label  will  be 
entered  into  the  new  buffer  ( Sec t i on  ( 8 ] ] . Now/  using  the 
features  of  the  line  editor,  the  user  may  duolicate 
unchanoed  information  to  the  new  buffer  or  enter  new  infor- 
mation from  the  keyboard.  «h«n  the  editinq  process  for  each 
data  element  is  completed/  a carriaae  return  may  be  entered 
to  signal  the  ROS  program  to  check  for  errors.  It  an  error 


Has  occurred#  a diagnostic  will  be  given  and  the  old  buffer 


contents  (old  information)  as  well  as  the  new  buffer  con- 
tents (new  information)  uo  to  the  ooint  of  the  error  will  be 
displayed.  The  user  may  now  make  the  aporopriate  correc- 
tions# duplicate  the  remaining  information  and  enter  a <cr>. 
when  the  coded  information  is  correct  it  will  be  saved  in 
the  coded  area  for  updating  the  DAT  file.  Execution  in  this 
manner  continues  for  each  of  the  data  elements  selected  at 
the  beginning  of  the  session. 

5.  Instructional  Mode 

During  the  instructional  mode  of  operation#  questions 
will  be  written  on  the  CRT  screen.  The  user  will  key 
responses  to  these  question  from  the  keyboard.  As  inputs 
are  received  by  the  RCS  program,  error  analysis  will  be  con- 
ducted. If  an  error  occurs#  a diagnostic  will  be  given  and 
the  user  will  have  an  opportunity  to  give  another  response. 
Correct  responses  are  retained  in  the  new  buffer  [Sec- 
tion(bl)  until  all  inouts  for  the  working  data  element  have 
been  gathered.  After  a data  element  update  is  complete  the 
information  will  be  stored  in  the  code  area  for  updating  the 
DAT  file.  Execution  continues  in  this  manner  until  all  pre- 
viously selected  data  elements  have  been  processed. 

b . End  Execution 

a h e n all  data  elements  have  been  processed  the  RUS  pro- 
gram will  write  the  compiled  report  to  the  diskette.  The 


report  may  be  referenced  under  the  tile  < f i 1 ena*e>  .MSG 
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CREATE 


1 . Int  roduct i on 

The  utility  oroqram  CREATE  was  desiqned  ana  written  to 
allow  the  user  the  ability  of  buildinq  a data  base  (DAT 
file).  The  DAT  file  contains  information  soecified  by  the 
most  recent  reoort  as  well  as  the  promotinq  questions  the 
operator  is  asked  to  respond  to  in  order  to  collect  the 
necessary  information. 

A portion  of  a DAT  file  has  been  expanded  in  Figure  2 
| to  show  the  structure  of  this  file.  The  first  128  bytes  of 

the  DAT  file  are  reserved  for  the  record  map.  The  record 
mao  is  a summary  of  the  data  labels  contained  within  the  DAT 
file  as  well  as  the  disk  storaqe  location  of  the  first 
record  dt  each  particular  data  element.  Disk  locations  are 
.maintained  by  record  extent  and  record  number  within  the 
file. 
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Record  Map 


5COMDRO  1PE.RSN03  ...C  0 M D R COR/rt. 

----------Code  Area**'*'*_**"*****!*"****"*****"**Error 

I .hATCH/01868R-20  Jbinary  zeroes...  A / 

Com,'ianf)s!—  — * — ****  — ****'*”*'""********_***  — *_ 

A/N-WhAT  IS  YOUR  COMMANDING  0 

--------------------Prompt  i ng  Area---*  — — — — — *** 

F F I C E J!  ' S RANK7/HIS  NAME?/«IS 

--Coae- ... 

LINEAL  NUMBER7/T  ...P  E R S N ... 

A PORTION  OF  A DAT  FILE 
FIGURE  2 

Information  pertinent  to  the  report  is  container)  within 
the  data  element.  A oata  element  consists  of  a data  label, 
a code  area,  error  check  commanos  ana  a prompting  area.  The 
oata  label  is  a unioue  recognizable  identifier  for  each  line 
of  the  proposed  report.  For  example  in  the  Navv  Force 
Status  (NAvFORSTAT)  reoort  the  data  label.  COMDK.  is  used  to 
reference  information  pertaining  to  the  Commanaing  Officer 
of  the  particular  reporting  activity.  The  code  area  con- 
tains the  reoortable  information  pertaining  to  the  data 
label.  trror  chec«  commanas  are  used  to  check  inout  infor- 
mation at  execution  time.  The  questions  to  be  asked  to  sol- 
icit the  information  needed  to  generate  the  reoort  are 


contained  in  the  oPO">Bt  ing  area.  with  the  exception  o f the 
record  nap  and  the  data  label  PE  RSN » the  example  given  in 
Figure  £ represents  one  data  element.  Notice  that  data  ele- 
ments having  more  than  one  subfield  description  are 
separated  by  a sub-field  delimiter  "/".  This  ael  uniter  is 
used  in  the  error  analysis  routines  to  set  uo  fixed  or  vari- 
able length  subfields. 

Each  subfield  of  the  error  analysis  commano  corresponas 
to  the  same  subfield  of  the  cooed  Portion.  For  example  com- 
mands listed  in  Figure  £ would  indicate  a check  of  suofields 
1 ana  £ of  the  referenced  data  label  for  alphabetic  charac- 
ters only  and  to  check  subfield  3 for  numerics  only. 

£ . Initiation 

The  CREATE  program  is  invoked  by  typing 
CREATE  <f i 1 ename>  <cr> 

The  <filename>  must  be  a unigue  mnemonic  (8  or  less  charac- 
ters) for  the  particular  report  to  oe  generated.  For  exam- 
ple t 

CREATE  NFS  <cr> 

may  be  used  to  create  a data  base  for  a NAyFQRSTAT  report. 
At  this  Point  execution  beqins  and  the  user  ; s askea  to 
specify  the  length  of  the  data  labels  to  be  usea  within  this 
particular  report.  The  user  should  note  that  since  the  data 
labels  are  duplicated  in  the  record  map.  the  lengths  should 
be  minimal  ana  in  no  case  should  they  exceed  a length  of  R. 


3.  Execut i on 


The  operator  is  now  free  to  enter  text  from  the  console 


using  the  features  of  the  line  editor  (Section  (9) ] and  spe- 
cial characters  required  to  specify  the  type  of  incut. 
These  special  characters  are  summarized  in  Table  1.  Keep  in 
mind  CREATE  expects  text  input  in  the  order  of  code>  error 
check  commands*  and  Questions. 

Text  is  stored  in  memory  until  an  ena  of  file  is 
encountered  or  the  memory  region  is  filled.  At  this  time 
the  memory  image  of  the  OAT  file  is  written  to  the  disk  and 
memory  pointers  reset  or  the  system  reboots  in  the  case  of 
end  of  file.  The  end  of  file  is  signalled  by  entering  a 
back  slash. 


CHARACTER 

DESCRIPTION 

ASCII 

FUNCTION 

1 

1 

Bar 

7CH 

end 

o f 

code  area 

Tiloe 

7EH 

end 

o f 

error 

commands 

T 

Up-arrow 

5EH 

end 

o f 

prompt 

area 

\ 

Back  slant 

5CH 

eno 

o f 

file 

TABLE  1 

SPECIAL  CHARACTER  MEANINGS  IN  PROGRAM  CREATE 
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Line  Editor 


1 . Int  roduc  t i on 


KOS  ana  CREATE  use  the  features  of  a line  editor  which 
is  incorporated  in  the  programs  as  the  procedure  LtDIT  and 
is  called  when  the  console  is  to  be  read  for  input. 


The  procedure  LEDIT  uses  two  RO  bytes  buffers,  the  old 
buffer  and  the  new  buffer.  As  the  names  imply,  the  old 
buffer  contains  information  entered  at  tne  last  console  read 
operation.  The  new  buffer  contains  information  which  is 
currently  being  read.  The  information  in  the  buffers  may  be 
transferred  between  the  buffers  by  entering  control  charac- 
ters which  are  summarized  in  Table  2. 

CONTROL 

CHAWACTtR  DEFINITION 

A Acts  as  a backspace  and  rub-out  com#ana  on  the  new 
line  only.  (same  as  rub-out  on  many  terminals). 


B Replace  the  old  line  with  the  contents  of  tne  new 
line,  empties  the  new  line. 


C Copy  one  character  from  the  old  buffer  to  the  new 
ou  f f er . 


D Copy  the  remaining  characters  from  the  old  line  to 
the  new  line  echoing  each  character.  Then  ter- 
minate the  edit. 


E Toggle  the  insert  mode.  Begin  insert  prints  H<"» 
end  inserts  prints  ">".  Position  of  the  old 


« 7 


pointer  does  not  change  during  insert. 


F Delete  the  new  line  without  updating  the  old  line, 
lermi nate  the  edit. 


G Display  contents  of  the  old  ana  new  buffers  with 
control  characters  interpreted  (e.g.  " t J " for  TAB, 
"TG"  for  BELL,  etc.). 


H Copy  remaining  characters  from  the  old  line  to  the 
new  line,  echoing  each.  Do  not  terminate  the  edit. 


I Tab.  A tab  stop  is  defined  every  four  characters. 
Same  as  TAB  on  many  terminals. 


J Line  feed.  Terminate  the  edit. 


K (not  used) 


L Copy  remaining  characters  of  ola  line  to  new  line 
without  echoing.  Do  not  terminate  the  edit. 


M Carriage  return  Terminate  the  edit. 


N backspace  ola  buffer  and  new  buffer  one  space. 


0 Copy  Characters  fom  the  current  position  of  the  old 
pointer  to  the  next  character  typed. 


P Delete  characters  from  the  current  position  of  the 
old  pointer  to  the  next  occurence  of  the  next  char- 
acter typed.  Echoes  a "X”  for  each  character 
deleted. 


Q Delete  the  new  line  ang  reset  the  old  pointer  to 
the  start  of  the  old  buffer. 


P Display  the  remaining  contents  of  the  old  buffer 
and  all  of  the  new  buffer. 


S Delete  one  character  from  the  old  buffer.  Echo  a 


ufl 


X"  for  the  oeleted  character 


T Only  used  in  CREATE  to  transmit  information  in  the 
new  buffer  to  storaqe  in  memory.  Used  when  input 
from  the  console  exceeds  one  crt  line. 


U Copy  characters  from  the  old  buffer  to  the  new 
buffer  up  to  the  next  TAB  character. 


V Escape  character.  Turns  off  any  special  meaning  of 
character  which  follows.  Enters  the  character 
into  the  new  buffer  and  echoes  the  characters  (e.q. 
"CTLvCTLm"  wi 1 1 echo  fm)  . 


(not  used) 

X Deletes  characters  from  current  position  of  old 
buffer  through  next  character  typed. 


Y Copy  the  remaining  characters  from  the  old  buffer 
to  the  new  buffer  echoing  each,  replace  the  old 
buffer  with  the  new  buffer.  Do  not  terminate  the 
edit. 


Z Copy  characters  from  the  old  buffer  to  the  new 
buffers  through  the  next  occurence  of  the  next 
character  typed. 

NOTE:'  The  control  character  is  entered  by  depress- 
ing the  CTRL  key  ana  then  simultaneously  aeoressinq 
the  the  aesirea  function  key. 

TABLE  <? 

LINE  EDITOR  FEATURES 
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A Samp  I e Session 


This  is  an  example  of  how  a portion  of  a Naval  Force 
Status  (NAy/FORSTAT)  data  Case  file  may  oe  created  ana  then 
subsequently  updated  to  generate  a report.  The  brackets  < > 
are  used  to  indicate  keyboard  entries.  Comments*  as  they 
apply*  are  enclosed  within  /*  comment  */.  Text  proaucea 
during  program  execution  will  be  as  it  would  appear  on  the 
sc  r een . 

A.  CREATE  Execution 

A > /*  system  is  ready  to  start  */ 

<CRt  A T E NF  S > <cr> 

LENGTH  CJF  DATA  LAdELS  TO  0E  USED? 

<5>  <c  r > 

EXPECTING  CODE  INFO  /*  prompt  message  */ 

<C0M0H  CDw/J.  P.  JONES/OO0 1 1 1 -1 0 ! > <cr>  /*  the  bar  (!)  will 
not  oe  echoed  */ 

ExPtCTlNG  ERROR  COMMANDS 

<a/a/N"'>  <cr>  /*  m Myil  not  be  echoed  */ 

ExPtCTlNG  PROMPT  INFO 

<*HAT  RANK  IS  TOUR  COMMANDING  OFFICER? /HIS  NAME  ? /H I S LINEAL 
NUMbER?T>  <c  r > /*  T will  not  be  echoed  */ 

EXPECTING  CODE  INFO 

<PEKSN  NE/OaS6/0230/02lO!>  <Cr> 

ExPtCTlNG  ERROR  COMMANDS 
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<A/N/N/N',>  <c  r> 


EXPtCTlNG  PROMPT  INFO 

< T YPE  UF  PERSONNEL7/STRUCTURED  STRENG TH?/ AU THOR  I ZED 
STRtNGTH?/ASSIGNED  STRENGTh?t>  <cr>  /*  T will  not  Be  echoea 

*/ 

EXPECTING  CODE  INFO 

< > /*  that  is  enough  for  now  */ 

A > 

/ * A file  (NFS. DAT)  now  exists  * / 

S.  RUS  Execution 

To  send  out  oersonnel  information,  a user  simDly  uses 

ROS. 

A>  /*  system  is  reaay  */ 

<R0S  NFS>  <cr> 

SELECT  DATA  ELEMENTS  YOU  DESIRE  TO  .NORK  nlITH 
COMDR  PERSN 
<N>  < Y > <c  r > 

ARE  DATA  LABELS  TO  BE  INCLUDED  IN  THE  REPORT 

< Y > <cr> 

DO  YOU  rtlSH  TO  BE  PROMPTED 

< Y > <c  r > 

TYPE  OF  PERSONNEL? 

<NE > <cr> 

STRUCTURED  STRENGTH? 

<02i6>  <c  r > 

AUTHORIZED  STRENGTH? 
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<02  30>  <c  r > 


ASSIGNED  STRENGTH? 

<0218>  <cr>  /*  qaineo  8 peoole  */ 

A > /*  only  one  aata  element  was  selected  */ 

/*  without  Dromotinq  */ 

/*  execution  is  the  same  to  question:  */ 

DO  YOU  rtlSH  TO  BE  PROMPTED 
<N>  <c  r > 

PERSN  Nt/0236/0230/0210 

PERSN  <ct)Z>  <1>  <cr>  by  a 1 (not  echoed)  */ 

PERSN  NE/0236/0230/02 1 <8>  <cr>  /*  no  new  line  created) 
filled  in  current  line  */ 

PERSN  NE/023b/0230/02  1 8 
A > 

/*  in  either  case>  messaqe  looks  like:  */ 

PERSN  N E/0236/0230/0218 
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just 


A REPORT  ORIGINATION  SYSTEM  DESIGNED  FOR  SHIPBOARD 
USE  IN  THE  GENERATION  OF  REQUIRED  RECURRING  REPORTS. 

THE  SYSTEM  USES  AS  INPUT  A DATA  BASfi  (DAT)  FILE  AND 
PRODUCES  AS  OUTPUT  A MESSAGE  (MSG)  FILE.  THE 
SOFTWARE  SYSTEM  CONSISTS  OF  TWO  PROGRAMS:  ROS  AND 

CREATE.  CREATE  IS  USED  TO  CREATE  A DAT  FILE  AND  ROS 
IS  USED  TO  UPDATE  THE  DAT  FILE  AND  CREATE  A MESSAGE. 

THE  ROS  PROGRAM  IS  MADE  UP  ON  THE  FOLLOWING  MODULES: 

1.  OPERATING  SYSTEM  INTERFACE 

2.  INITIALIZE 

3.  EDITING 

4.  ERROR 

5.  OUTPUT 

THE  CREATE  PROGRAM  IS  MADE  UP  OF  THE  FOLLOWING 
MODULES: 

1.  INITIALIZE 

2.  INPUT-EDITING 

3.  FINISH 

BOTH  PROGRAMS  WERE  DESIGNED  FOR  EXECUTION  GN  THE 
INTELLEC-3  MICROCOMPUTER  SYSTEM,  WITH  CROSS  COMPILATION 
BEING  DONE  ON  AN  IBM  3o0/65. 

******************************************************  * / 

1 00  H:  /*  PROGRAM  TO  BE  LOADED  INTO  MEMORY  STARTING  HERS  */ 

/ * ****************************************************** 

OPERATING  SYSTEM  INTERFACE  DECLARATIO NS  . 

******************************************************  */ 

DECLARE 


LIT 

LITERALLY  'LITERALLY', 

BOOT 

LIT 

'0065H',  /*  ENTRY  POINT 

ENTRY 

LIT 

TRUE 

LIT 

' 1 ' , 

FALSE 

LIT 

•O', 

• WHILE  TRUE'  , 

FOREVER 

LIT 

CR 

LIT 

' ODH ' , 

LF 

‘ LIT 

•OAH'  , 

CTI 

LIT 

' O'  , 

CTS 

LIT 

* 1 ' , 

DC  N T 

3DOSA 

SBDOS 

BASED 

BYTE, 

ADDRESS  INITIAL  (0006H)  , 
3 DOS A ADDRESS; 

INITIALIZE  DECLARATIONS 

******************************************************  * / 


DECLARE 

PROMPT  BYTE  INITIAL (FALSE) . 

RM  ADDRESS  INITIAL  (80H)  , 

RMPTR  3ASED  RM  BYTE, 

DLSLEN  BYTE, 

NUMSREC  BYTE, 

WOfiKJMAP  ADDRESS, 

WMPTR  BASED  WORKSMAP  BYTE, 

EXTIRN  BASED  WORKSMAP  ADDRESS 


NUMlELEMENTS 

EJRJA 

ER  BASED  EjRSA 


BYTE, 

ADDRESS, 

BYTE, 


9 


53 


BYTE 


NRSREAD 
NR  BYTE, 

5 A V ESEXT  BYTE, 

SAVESRN  BYTE. 

DAT  SAREA  ADDRESS, 

CAT  BASED  DATSAREA  BYTE, 

EASE$DAT$ AREA  ADDRESS, 

I $C  AT $AR E A ADDRESS, 

CODESA  ADDRESS, 

CODE  BASED  CODESA  BYTE, 

BSCODES  A ADDRESS, 

TOPiMEM  ADDRESS, 

MSGSABEA  ADDRESS  INITIAL  (80H) , 

MSG  BASED  MSGSAREA  BYTE, 

MORE  BYTE  INITIAL  (FALSE) , 

HOLDSWM  ADDRESS; 

/ * ****************************************************** 

EDITING  DECLARATIONS 


*********  **  ***************  ****************************  * 


DECLARE 

EOFFER  (180)  BYTE, 

SIZESNBUF  LIT  '90'. 
NEWSBUF  ADDRESS, 

NBDF  BASED  NEWSBUF  BYTE, 

NPTR  BYTE, 

OLD  $BUF  ADDRESS, 

OBUF  BASED  OLDSBUF  BYTE, 


OPT  R 
NB 


BYTE, 
ADDRESS, 


TN  BASED  NB  BYTE 
OB 

INSERT 

PERCENT  LIT 

BS  LIT 

BELL  LIT 

TAB  LIT 

EOP  LIT 

EOC  LIT 

ERR  LIT 

CTLZ  LIT 

RUEOUT  LIT 

END JFILE  LIT 

CHAR  -BYTE, 


U LJ  X X XJ  f 

ADDRESS, 

BYTE  INITIAL  (FALSE) , 


1 25H  ' , 
' 08 H'  , 
1 07  H ' , 
' 09 H 
• 5EH'T 
' 7CH ' 


/♦  BACKSPACE  ♦/ 


/♦  DP-ARROW;  END  OF  PROMPT  */ 
, /*  BAR ; END  OF  CODE  */ 

1 7EH ' , /*  TILDE;  END  OF  ERROR  */ 

' 1 AH' 


' 7FH  ' , 
' 5CH ' , 


/♦BACK  SLANT  ♦/ 


PROMPTS  AR  E A ADDRESS; 

/ * ****************************************************** 

ERROR  DECLARATIONS 


******************************************************  * / 

DECLARE 

ERRA  ADDRESS, 

ECMD  BASED  ERRA  BYTE, 

BERRA  ADDRESS, 

WARN  BYTE  INITIAL  (FALSE); 

/*  ****************************************************** 

* OUTPUT  DECLARATIONS 


****************************************************** 

DECLARE 

EATIFCB  ADDRESS  INITIAL  (5CH) , 

DFCE  BASED  DATSFCB  BYTE, 

MSGSFCB  ( 3 3 J BYTE, 

PRINTSLABEt.  BYTE  INITIAL  (FALSE)  ; 
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/ * ****************************************************** 


OPERATING  SYSTEM  INTERFACE  MODULE 

FUNCTION:  SERVES  AS  AN  INTERFACE  TO  THE  RESIDENT 
OPERATING  SYSTEM.  IT  ALLOWS  INPUT/OUTPUT  OPERATIONS 
TO  EE  HANDLED  3Y  SYSTEM  CALLS. 


******************************************************  * / 

CRTIN:  PROCEDURE  BYTE; 

DO  WHILE  INPUT  (CTS)  ; 

END: 

RETURN  NOT  INPUT  (CTI)  AND  07FH; 

END  CRTIN; 

R EA  DC:  PROCEDURE  BYTE; 

DECLARE  C BYTE; 

IF  (C : = CR  TIN)  >=  1 1 OSOO0 1 B /*  LOWER  CASE  A */ 

AND  C <=  0 11 1$ 10 1 0B  /*  LOWERCASE  Z */  THEN 
C = C AND  1 0 1$  1 1 1 1 B;  /*  BECOMES  UPPER  CASE  */ 
RETURN  C; 

END  READC; 

MON  1 : PROCEDURE  (FUNC,  INFO); 

DECLARE  FUNC  BYTE,  INFO  ADDRESS; 

GO  TO  ENTRY; 

END  MON  1 ; 

MON2 : PROCEDURE  (FUNC, INFO)  BYTE; 

DECLARE  FUNC  BYTE,  INFO  ADDRESS; 

GC  TO  ENTRY; 

END  MON 2; 

PRINICHAfi:  PROCEDURE  (3)  ; 

DECLARE  B BYTE; 

CALL  MON  1 (2,  B)  ; 

END  PRINTCHAR; 


PRINTCHARI: 
DECLARE 
IF  (C  AND 


PROCEDURE (C)  ; 

C BYTE: 

Oil  0S0000B)  = 


i§, 

CALL 
CALL 
END;  ‘ 

ELSE 

CALL  PRINTCHAR (C) 
END  PRINTCHARI; 

CRLF : PROCEDURE: 

CALL  PRINTCHAR  (CR) 
CALL  PRINTCHAR  (LF) 
END  CRLF; 


PRINTCHAR  (EOP) 
PRINTCHAR (C  OR 


PRINT:  PROCEDURE 

DECLARE  A ADDRE 
CALL  MO N 1 (9, A) 
CALL  CRLF; 

END  PRINT; 


'Hi, 


SETSDMA:  PROCEDURE  (A)  ; 
DECLARE  A ADDRESS; 
CALL  MON  1 (26,  A)  ; 
END  SETJDMA; 


0 /*  CONTROL  CHAR  */  THEN 
*40H)  ; 


DISKREAD:  PROCEDURE (A)  BYTE; 
DECLARE  A ADDRESS; 

RETURN  MO N2  (20 , A)  ; 

END  DISKREAD; 
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DISKWRITE:  PROCEDURE  (A)  BYTE; 

DECLARE  A ADDRESS; 

RETURN  MON2  (21 , A)  ; 

END  DISKWRITE; 

OPEN;  PROCEDURE  (A)  BYTE; 

DECLARE  A ADDRESS; 

RETURN  MON2  (15,  A)  ; 

END  OPEN; 

CLOSE:  PROCEDURE  (A)  BYTE; 

DECLARE  A ADDRESS; 

RETURN  MON2  ( 1 6 , A)  ; 

END  CLOSE; 

SEARCH:  PROCEDURE  (FC3)  BYTE; 

DECLARE  FCB  ADDRESS; 

RETURN  MON2  (17, FCB)  ; 

END  SEARCH; 

MAKE:  PROCEDURE  (FCB)  BYTE; 

DECLARE  FCB  ADDRESS; 

RETURN  MON2  (22, FCB)  ; 

END  MAKE; 

LIFTHEAD:  PROCEDURE; 

CALL  MON1  (12,0)  ; 

END  LIFTHEAD; 

MOVE:  PROCEDURE  (SOURCE  ,DEST,  N)  ; 

DECLARE  ( SOURCE  -D  EST)  AD&RESS, 

(S  BASED  SOURCE,  D BASED  DEST,  N ) BYTE; 

DO  WHILE  (N:=N-1)  <>  255; 

E = S ;®  SOU  RCE=SOU  R CE+ 1 ; DEST=DEST+1 ; 

END; 

END  MOVE; 

ERROR:  EROCEDURE  (I)  ; 

DECLARE  I BYTE; 

DO  CASS  I; 

/*  CASE  0 
CALL  PRINT 
CALL  PRINT 
CALL  PRINT 
CALL  PRINT 
CALL  PRINT 
CALL  PRINT 
CALL  PRINT 
CALL  PRINT 

END: 

GO  TO  BOOT; 

END  ERROR; 

/ * ****************************************************** 

INITIALIZE  MODULE 

FUNCTIONS:  TO  OPEN  THE  APPROPRIATE  DAT  FILE,  MAKE 
A MESSAGE  FILE  AND  ALLOW  THE  USER  TO  SELECT  A SET  OF 
DATA  ELEMENTS  TO  WORK  WITH.  IT  THEN  INITIALIZES 
MEMORY  WITH  THE  SELECTED  DATA  ELEMENTS. 

******************************************************  * / 


M AK  £$MS  G$ FILE : PROCEDURE: 

CALL  MOVE  (.' MSG' ..  MSGSFCB  ♦ 9.3); 
MSGSFCB, MSGSFCB  (12)  ,MSGSFCB(32)  = 0; 
IF  SEARCH  (.  MSGSFCB  <>  255  THEN 
CALL  ERROR  (3)  ; 

IF  MAKE ( . MSGSFCB)  = 255  THEN 


DVER  WRITING  ERROR  CODES  */ 
(.'OVERWRITING  ERROR  CODES  $'); 

. • DISK  READ  ERROR  $') : 

.'ERROR  COMMAND  NOT  DEFINED  S'); 
.'A  MESSAGE  FILE  EXISTS  S'); 
(.'DISK  WRITE  ERROR  S'); 

.'OUT  OF  DIRECTORY  SPACE  S'); 
.'DAT  FILE  NOT  PRESENTS'); 

(.'MSG  FILE  NOT  PRESENTS'  ; 
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CALL  ERROR  (5)  ; 

IF  OPEN  (.  MSGSFCB)  = 255  THEN 
CALL  ERROR  (7)  ; 

END  MAKE i MS  G$ FILE ; 

INIT:  PROCEDURE; 

CALL  MOVE  (5DH,  .MSGSFCB+1  ,8)  ; 
CALL  MAK2SMSG5FILE: 

CALL  MOVE  (.  'DAT' ,DATSFCB+9,3) 
DFCE  (12)  , DFC3  (32)  =0: 

IF  CPEN  (DATSFCB)  =255  THEN 
CALL  ERROR  (6)  ; 

IF  (DCNT:  =DI5KREAD  (DATSFCB)  ) 
CALL  ERROR  ( 1 ) ; 

CALL  LIFT  HEAD; 

END  .INIT; 


<>  0 THEN 


INCSRM;  PROCEDURE; 

RM  = RM  ♦ 1 ; 

END  INCSRM; 

INC$HM:  PROCEDURE: 

WORKSMAP  = WORKSMAP  + 1; 

END  INCSWM; 

PRI NT$D  AT  AiE : PROCEDURE; 

DECLARE  (I,J)  BYTE: 

DO  I = 1 TO  NUMSELEMENTS: 

IF  RMPTR  = EOC  THEN  /*  END  OF  RECORD  MAP  */ 

DO;  RM= 1 0 1 H ; NU MELEMENT3= I- 1 ; RETURN;  END; 

DO  J = 1 TO  DLSL2N; 

CALL  PRINTCHAR (RMPTR) ; 

CALL  INCSRM; 

END: 

CALL  PRINTCHAR  ('  ')  ; 

RM  = RM  ♦ 2; 

END  ; 

END  PRINISDATASE; 

SAVESEXSRNSNR:  PROCEDURE; 

WMPTR  = ER;  /*  EXTENT  */ 

CALI  INCSWM: 

WMPTR  = ER  ( 1 ) ; /*  RN  */ 

CALL  INCSWM; 

WMPTR  = ER  (DLSLEN  ♦ 3)  - ER(1);  /*  NUMBER  OF  RECORDS  */ 
CALL  INCSWM: 

END  SAVE$2X*RN$NR; 

PRINTSPACE:  PROCEDURE; 

DECLARE  I BYTE; 

DO  I = 1 TO  DLSLEN: 

CALL  PRINTCHAR  ('  ')  ; 

END  ; 

END  PRINTSPACE; 

CHKSRESPONSE : PROCEDURE; 


DECLARE  (I-C  BYTE; 

DO  I = 1 TO  NUMSELEMENTS: 

CALL  PRINTCHAR (C:=READC)  ; 
IF  C = 'Y*  THEN 

CALL  SAVESEXSRNSNR; 

ELSE 

IF  C = 'S'  THEN 

DO;  RM= 1 0 1 H;  RETURN; 
ESRSA  = ESRSA  + DLSLEN  ♦ 2; 

CALL  PRINTSPACE; 

END; 

END  CHKSRESPONSE; 

SELSWE:  PROCEDURE: 

DLSLEN  = RMPTR; 


END; 
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CALL  INC$ RM ; 

WORKSMAP  = . MEMORY ; 

NUMSELEME  NTS=  1 1 : 

CALL  PRINT (.' SELECT  DATA  ELEMENTS  TO  WORK  WITH*'); 
ESR $ A = RM  ♦ DLSLEN; 

DO  WHILE  RM  < 100H; 

CALL  PRINTDATASE; 

CALL  C RLF : 

CALL  CHKSfctESPONSE; 

END; 

END  SELSWE; 


SETS MEM : PROCEDURE: 

DATSAREA, BASESDATS A REA  = WORKSMAP; 
TOFSMEM  = SBDOS  - 1; 

WORKSMAP  = .MEMORY; 


DFCB  (32)  = WMPTR(I) 
NR  = WMPTR  (2)  ; 
NRSREAD  = 0; 

END  SETSMEM; 

OPE  NSEXT : PROCEDURE: 
CECB  (12)  = WMPTR; 

IF  CPEN  (DATSFCB)  = 
CALL  ERROR  (1)  ; 
END  OPENSEXT; 


/*  RN  TO  START  BEAD  */ 


255  THEN 


READSDSREC:  PROCEDURE: 

IF  DFCB  ( 1 2)  <>  WMPTR  THEN 

CALL  OPENSEXT: 

CALL  SETS  DM A (DATS AR  E A): 

IF  (DCNT:  =DISKREAD  (DATSFCB)  ) 


CALL  ERROR  ( 1 ) ; 
NRSfiEAD  = N2SREAD  ♦ 
DATSAREA  = DATSAREA 
CALL  SETS  DM  A (30H) 
END  READSDSREC; 


<>  0 THEN 


1; 

♦ 128; 


READSDAT:  PROCEDURE: 

DO  WHILE  DATSAREA'*- 128  < TOPSM EM ; 

IF  NRSREAD  = NR  THEN 

IF  (WORKSMAP: =WORKSMAP+3)  >=  5ASESDA T$ Afi EA- 1 THEN 
DO;  /*  FINISHED  */  MORE  = FALSE;  RETURN;  END; 

^ ^ 

DO;  DFCB  (32)  = WMPTR(I);  NRSREAD  = 0; 

NR  = WMPTR  (2)  ; END; 

CALL  READSDSREC; 

END; 

MORr  = TRUE; 

SAVESEXT  = DFCB  ( 1 2) ; 

SAVESRN  = DFCB  (32)  ; 

HOLDSWM  = WORKSMAP; 

END  READSDAT; 

READSMORE:  PROCEDURE; 

DECLARE  HOLD  ADDRESS: 

HOLD, WORKSMAP  = HOLDSWM; 

DFCE  (12)  = SAVESEXT; 

SAVESRN 


DFCB/32)  = wn*  b*un« 

DATSAREA  = 3AS ESD ATS  AREA ; 

CALL  READSDAT; 

WORKSMAP  = HOLD: 

TSCATSAREA  = DATSAREA; 

DATSAREA  = BASESDATS AREA ; 

END  READSMORE; 

/*  ******  ****  ********************  ******41*  **********  ****** 

EDITING  MODULE 

FUNCTION:  TO  ALLOW  ENTRY  OF  DATA  AND  EDITING  OF 
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ENTERED  DATA  BY  USE  OF  LINE  EDITING  FUNCTIONS.  THE 
USER  HAY  SELECT  TO  ENTER  DATA  DIRECTLY  INTO  THE 
CODED  AREA  OR  BE  PROMPTED  AS  TO  WHAT  INFORMATION  IS 
REQUIRED. 

******************************************************  */ 

/*  PROCEDURES  OF  THE  LINE  EDITOR  ♦/ 


BACKSUP:  PROCEDURE: 

IF  NPTR  > 0 THEN 
DO: 

NPTR  = NPTR  ~ 1; 

CALL  PRINTCHAR  (3S)  ; 

CALL  PRINTCHAR  ('  ')  ; 

CALL  PRINTCHAR  (BS)  ; 

END; 

ELSE 

CALL  PRINTCHAR (BELL)  ; 

END  BACKSUP; 

MOVESTOSOLD:  PROCEDURE: 

CALL  MOVE  (NEWSBUF* 1 ,OLD$BUF+1 , (ObUF:  = NPTR) ) ; 

OPTR  = 0:  NPTR  =0; 

END  MOVE*TOSOLD; 

OLDSTCSNEW:  PROCEDURE; 

NBUF  (NPTR : = NPTR+ 1 ) = OB UF (OPTR : =QPTR+ 1 ) ; 

END  OLDiTOSNEW; 

ECHOSON:  PROCEDURE: 

CALL  PRINTCHAR (NBUF ( N PTR : = NP TR+ 1 ) := (OBUF (OPTS: =OPTR+ 1)  ) ) ; 
END  ECHOJGN; 

COPYSONE:  PROCEDURE; 

IF  OPTR  <=  OBUF  THEN 
CALL  ECHOSON; 

ELSE  CALL  PRINTCHAR  (BELL)  ; 

END  CCPYSONE; 

PSMOVESCN:  PROCEDURE:  /*  PARTIAL  MOVE  OLD  TO  NEW  */ 

DC  WHILE  OPTR  < OBUF; 

CALI  ECHOSON; 

END; 

END  PSMOVESON; 

ENTER:  PROCEDURE; 

IF  INSERT  THEN 

CALL  PRINTCHAR (*  >•)  ; 

ELSE 

CALL  PRINTCHAR  (' <•)  ; 

INSERT  = NOT  (INSERT)  ; 

END  ENTER; 

PRINTSCLD:  PROCEDURE; 

DECLARE  I BYTE: 

DO  1=  1 TO  OBUF; 

CALL  PRINTCHARI  (03UF  (I)  ) ; 

END : 

CALL  CRLF: 

END  PRINTSOLD; 

PRINTS  NEW:  PROCEDURE; 

DECLARE  I BYTE: 

DO  I - 1 TO  NPTR: 

CALL  PRINTCHARI  (NBUF  (I)  ) ; 

END; 

END  PRINTSNEW; 

PRINTSBOTH:  PROCEDURE; 

CALL  PRINTSOLD; 
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CALI  PRINTSNEW ; 

END  PRINTSBOTH; 

COPY$RMSO$N:  PROCEDURE; 

/*  COPIES  REMAINING  CHARACTERS  FOR  OLD  TO  NEW  BUFFERS  */ 

DO  WHILE  OPTR  <=  OBUF; 

CALL  OLDSTOSNEW; 

END: 

CALL  PRINTCHAR  ('  + ')  ; /*  INDICATES  WHEN  DONE  */ 

END  COPYSRMSOSN; 

BS$0$N:  PROCEDURE; 

/*  EACKSPACE  OLD  PTR  AND  NEW  PTR  1 CHAR  */ 

IF  (OPTR  > 0)  AND  (NPTR  > 0)  THEN 
DO  * 

0$TR  = OPTR  - 1; 

NPTR  = NPTR  - 1; 

OBUF  = OBUF  - 1 ; 

END; 

ELSE 

CALL  PRINTCHAR (BELL)  ; 

END  BS$0$N; 

COPYJON:  PROCEDURE  (C)  ; 

DECLARE  (C,I)  BYTE; 

I=OPTRj 

DO  WHILE  OBUF  (I: =1*1)  <>  C; 

IF  I > OBUF  THEN  /*  NO  MATCH  */ 

DO: 

CALL  PRINTCHAR  (BELL)  ; 

RETURN; 

END: 

END;  /*  DO  WHILE  */ 

DO  WHILE  OPTR  < I; 

CALL  ECHOiON; 

END; 

END  COPYSCN; 

DELETE:  PROCEDURE(ECHO)  : 

DECLARE  (I/J/P1, CHARI , ECHO)  BYTE; 

P 1=OPTR ; 

CHARI  = RE  ADC : 

DO  WHILE  (OBUF (PI : =P1  + 1)  <>  CHARI)  ; 

IF  PI  > OBUF  THEN  /*  NO  MATCH  */ 

DO ; 

CALL  PRINTCHAR (BELL) ; 

RETURN; 

END; 

END;  /*  DO  WHILE  */ 

IF  ECHO  THEN 

DO  I = OPTR+1  TO  PI  ; 

CALL  PRINTCHAR (PERCENT)  ; 

END; 

/*  NOW  CONDENSE  THE  BUFFER  */ 

J=OPTR ; 

I-PIs 

DO  WHILE  I <=  OBUF; 

OBUF  (J : =J  + 1 ) = OBUF  (I:  =1  + 1)  ; 

END  : 

OBUF  = OBUF  - (P1-OPTR+1) ; 

END  DELETE; 

DELSN:  PROCEDURE; 

CPTR.NPTR  = 0; 

OBUE  = 0; 

CALL  PRINTCHAR (ENDJFILE) ; 

CALL  CRLF ; 

END  DELiN; 

DISPLAYJRMIOSN:  PROCEDURE; 
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DECLARE  I BYTE; 
i = °; 

CALI  CRLF; 

DO  WHILE  (I:  =1*  1)  <=  OBUF: 

IF  I <=  OPTR  THEN  /*  EVEN  LINE  */ 

CALL  PRINTCHAR  (•  •)  i 
ELSE  CALL  PRINTCHAR  (OB UF  (I) ) ; 

END ; 

CALL  CRLF: 

CALL  PRINTSNEW: 

END  DISPL AYSRMSOSN; 

DELSO:  PROCEDURE: 

IF  CPTR  > 0 THEN 
DO; 

DECLARE  I BYTE; 

I = OPTR- 1 ; 

DO  WHILE  (I:  = I+1)  < OBUF; 

OBUF  (I)  = OBUF  (1+1)  ; 

END; 

CALL  PRINTCHAR (PERCENT) ; 

OBUF  = OBUF  - 1 ; 

END; 

ELSE  CALL  PRINTCHAR  (BELL)  ; 

END  DELSO; 

ESCAPE:  PROCEDURE* 

/♦'TURNS  0FP“SPECIAL  MEANING  OF  CHARACTER  TO  FOLLOW 
AND  ENTERS  CHARACTER  IN  NEW  BUFFER  ♦/ 

CALL  P?INTCHARI (CH AR : =R 2ADC) ; 

NBUF(N*'TR:=NPTR*1)  = CHAR; 

END  ESCAPE; 

PRI NTSTAB:  PROCEDURE: 

IF  (NPT 3 ♦ 5)  > SI2ESNBUF  THEN 
CALL  PRINTCHAR  (BELL)  ; 

ELSE 

NBUF  (NPTR:  = NPTR«-1)  = TAB; 

CALL  PRINTCHAR (TAB) ; 

END  PRINT JT AB; 

/*  END  OF  PROCEDURES  CALLED  FROM  THE  LINE  EDITOR  */ 


INC  $D A:  PROCEDURE; 

DATSAREA--  DATSAR EA  +1; 

END  INCSDA; 

INCiCA:  PROCEDURE: 

CODEIA  = CODES A «•  1 ; 

END  INCSCA; 

INCSER:  PROCEDURE; 

ERRA  = ERRA  ♦ 1 ; 

END  INCSER; 

MOVEJDLSNEW:  PROCEDURE; 

DO  WHILE  NPTR  <=  dLSLSN; 

IF  PROMPT  THEN  CALL  OLDSTOSNEW; 

ELSE  CALL  ECHOSON; 

END; 

NB  = NEWSBUF  ♦ NPTR  ♦ 1; 

OPTR  = NPTR: 

END  MOV E5 DLs NEW ; 

MOVESCODESOLD:  PROCEDURE; 

DECLARE  DEST  ADDRESS,  D BASED  DEST  BYTE; 
DEST  = OLDSBUF+1; 

OPTR. NPTR, OBUF  = 0; 

DO  WHILE  DAT  <>  EOC ; 
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D = DAT: 

IF  NOT  (PROMPT)  THEN  CALi.  PRI NTCHAR  (D)  ; 

CALL  INCJDA; 

DEST  = DEST  >1; 

OBUF  = OBUF  *-1  ; 

END: 

CALI  CRLF: 

CALL  MOVEJDLJNEW: 

END  MOV ESCODESOLD ; 

SETJPTR:  PROCEDURE; 

DO  WHILE  DAT  <>  ERR; 

CALL  INCJDA; 

END: 

CALL  INCJDA; 

BERRA, ERRA  = DAIS AREA ; 

CALL  INCJDA; 

DO  WHILE  DAT  <>  ERR; 

CALL  I NC$D A ; 

END: 

CALL  INCJDA; 

PROMPTJAREA  = DATJAHEA; 

END  SETJPTR; 

NEXTJDE:  PROCEDURE: 

CALL  MOV  ESC ODE SOLD ; 

CALL  INCJDA: 

CALL  SETJPTR; 

END  NEXTJDE; 

UPDATEJCAT:  PROCEDURE; 

DECLARE  T ADDRESS,  (I, A)  BYTE; 

INSSINC:  PROCEDURE; 

CODE  = N3UF (I) ; 1=  I + 1 ; 

CALL  INCJCA; 

END  INSSINC ; 

CODEJA  = BJCODESA  + DLJLEN; 

I = DLJLEN+1; 

DO  WHILE  (A : =1  <=  NPTR)  AND  (I  <=  OBUF) ; 

CALL  INSJINC; 

END: 

IF  A THEN  /*  CODE  LINE  HAS  GROWN  */ 

DO: 

DO  WHILE  I <=  NPTR+1 ; 

IF  CODE  = ERR  THEN  /*  AT  ERROR  CMDS  */ 
CALL  ERROR  (0)  ; 

PI  cp 

CALL  INSJINC; 

END; 

CODE  = EOC; 

END; 

ELSE 

DO: 

CODE  = EOC;  T = OLDJBUF+OBUF+1; 

DO  WHILE  (CODEJA  :=CODEJA  +1)  <=  T; 

CODE  = 0; 

END; 

. END: 

END  UPDATEJDAT; 


ERROR  MODULE 

FUNCTION:  TO  CHECK  FOR  POSSIELE  ERROR  CONDITIONS, 

ERROR  COMMANDS  ARE  DEFINED  IN  DOJCMD  PROCEDURE. 

*******41*  ******  **************  ************************* 

ABSENTEE:  PROCEDURE: 

CALL  MOVEJTOJOLD; 

CALI  PRINTJOLD; 
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NPTR  = NB  - N EW SBU F ; 
CALL  PRINTSNEW; 

END  RESENTER; 


WARNING:  PROCEDURE  (I); 

DECLARE  I BYTE; 

WARN  = TRUE; 

DO  CASE  I; 

CALL  P HINT ( . ' WILL  DESTROY  OLD  INFO  S'); 

CALL  PRINT (.' EXPECTING  ALPHABETIC  CHAR  S'); 
CALL  PRINT  (.  'EXPECTING  NUMERIC  CHAR  S'); 
END:  /*  CASE  */ 

CALi  CRLF ; 

END  WARNING; 

INCJNB:  PROCEDURE; 

NB  = NB  ♦ 1 ; 

END  INC$NB; 

SPS  PDSCOM : PROCEDURE  3YTE; 

DECLARE  SPACE  LIT  '20H', 

PERIOD  LIT  ' 2EH  ' , 

COMMA  LIT  ' 2CH  * • 

RETURN  ( ( TN  = SPACE)  'OR  (TN  = PERIOD) 

END  SPSPDSCOM; 

ALPHA:  P ROC  ED  UP.  E 3YTE  ; 

DECLARE  LCA  LIT  ' 6 1 H * - LC2  LIT  ' 7 AH' ; 

RETURN  ( ( (TN  >=  'A')  AND  (TN  <=  ' Z ' ) ) 

AND  (TN  <=  LCZ)  ) OR  SPSPDSCOM)  ; 

END  ALPHA; 

CHKIALPHA:  PROCEDURE; 

DO  WHILE  TN  <>  '/'; 

IF  NOT  (ALPHA)  THEN 
DO: 

CALL  WARNING  ( 1)  ; 

RETURN; 

END  ; 

CALL  INCSN3; 

END; 

END  CHKS  ALPHA ; 

NUMERIC:  PROCEDURE  BYTE; 

RETURN  (((TN  - '0')  <= 

OR  SPSPDSCOM)  ; 

END  NUMERIC; 


OR  (TN  = COMMA) ) ; 


OR  ( (TN  >=  LCA). 


9)  OR  (TN  = 2DH  /*  MINUS  */) 


CHK  $ NUMERIC : PROCEDURE; 

DO  WHILE  TN  <>  '/': 

IF  NOT  (NUMERIC)  THEN 

DO:  CALL  WARN! NG  (2)  ; RETURN;  END; 

CALL  INCSNB; 

END; 

END  CHKSNUMERIC; 

NEXTiSF:  PROCEDURE; 

DO  WHILE  CODE  <>  •/• ; 

CALL  INCSCA; 

END: 

CALL  INCSCA ; 

DO  WHILE  DAT  <>  '/' ; 

CALL  INCSDA; 

END: 

CALL  INCSDA; 

CALL  INCSNB; 

CALL  INCSER; 

END  NEXTSSF; 

DOSCND:  PROCEDURE; 

IF  ECMD  = 'O'  THEN  RETURN;  ELSE 


63 


IF  ECMD  = 'A*  THEN  CALL  CHKSALPHA:  ELSE 
IF  EC HD  = ' N'  THEN  CALL  CHKS  NUMER IC ; ELSE 
CALL  ERROR  (2)  ; 

END  DOSCMD; 

CHKSERR:  PROCEDURE; 

WARN  = FALSE: 

DO  WHILE  ECMD  <>  ERR; 

IF  ECMD  = •/'  THEN 
CALL  NEXTSSF; 

CALL  DOSCMD; 

IF  WARN  THEN  RETURN; 

CALL  INCSER; 

END; 

END  CHKSERR; 

ASKSQUESTION:  PROCEDURE; 

CO  WHILE  DAT  <>  ; 

CALL  PRINTCHAR  (DAT)  ; 

CALL  INCSDA; 

END; 

END  ASKSQUESTION; 

CHKSANSWER:  PROCEDURE; 

WARN  = FALSE; 

DO  WHILE  ECMD  <>  1 / ' I 
CALL  DOSCMD; 

IF  WARN  THEN  RETURN; 

CALL  INCSER; 

END  ; 

END  CHKSANSWER; 

ENDSIP:  PROCEDURE; 

OB  = OLDSBUF  + DLSLEN  + 1; 

IF  (NB:=NEW$BUF*DLSLEN+1)  > NEWSBUF  + NPTR  THEN 
DO: 

CALL  WARNING  (0)  ; 

RETURN; 

END: 

NBUF  (NPTR  + 1)  = '/'  J 
CALL  CHKSERR; 

END  ENDSIP; 

LEDIT:  PROCEDURE; 

DO  WHILE  NPTR  < SIZESNBUF: 

IF  (CHAR : =READC)  <=  CTLZ  THEN  /*  CONTROL  CHAR  */ 
DO  CASE  CHAR; 

/*  CAS  0 NULL  */ 

• 

/*  CASE  1 CONTROL  A */ 

CALL  BACKUP; 

/*  CASE  2 CONTROL  B */ 

CALL  MOVESTOSOLD; 

/*  CASE  3 CONTROL  C */ 

CALL  COPYSONE; 

/*  CASE  4 CONTROL  D */ 

DO; 

CALL  PSMOVESON; 

GO  TO  ENDEDIT 1 ; 

END; 

/*  CASE  5 CONTROL  E */ 

CALL  ENTER; 

/*  CASE  6 CONTROL  F */ 

GO  TO  ENDEDIT2; 
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/*  CASE  7 CONTROL  G */ 
CALL  PRI NTS30TH ; 

/*  CASE  8 CONTROL  H */ 
CALL  P$MOVE$ON; 

/*  CASE  9 CONTROL  I */ 
CALL  PRINTSTAB; 

/*  CASE  10  CONTROL  J */ 
GO  TO  ENDEDIT 1 ; 

/*  CASE  1 1 CONTROL  K */ 

« 

/*  CASE  12  CONTOL  L */ 
CALL  C0PY$SM$0$N; 

/*  CASE  13  CONTROL  M */ 
GO  TO  ENDEDIT 1 ; 

/*  CASE  14  CONTROL  N */ 
CALL  BSSOSN; 

/*  CASE  15  CONTROL  0 */ 

CALL  COPY  SON  (READC)  ; 

/*  CASE  16  CONTROL  P */ 
CALL  DELETE  (TRUE)  ; 

/*  CASE  17  CONTROL  Q */ 
CALL  DELSN ; 

/*  CASE  13  CONTROL  R */ 
CALL  DISPLAYS RMiOiN ; 

/*  CASE  19  CONTROL  S */ 
CALL  DELSO; 

/*  CASE  20  CONTROL  T */ 

f 

/*  CASE  21  CONTROL  U */ 
CALL  COPYSON  (TAB)  ; 

/*  CASE  22  CONTROL  V */ 
CALL  ESCAPE; 

/♦  CASE  23  CONTROL  W ♦/ 
; /*  LATER  */ 

/*  CASE  2**  CONTROL  X */ 
CALL  DELETE  (FALSE)  ; 

/•CASE  25  CONTROL  Y */ 
DO; 

CALL  PSaOVESON: 

CALL  MOV E$TO$OLD ; 

END; 

/*  CASE  26  CONTROL  Z */ 
CALL  COPYJON  (READC)  ; 


END; 

ELSE  /*  CHECK  SPECIAL  CASES  */ 
IF  CHAR  = RUBOUT  THEN 
CALL  BACKUP; 

ELS  E 

DO; 

CALL  PRINTCHAR  (CHAR)  ; 
NBUF (NPTR:=NPTR+ 1) =CHAR; 
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IF  NPTR  = 72  THEN  CALL  PRINTCHAR (BELL) ; 

IF  NOT  (INSERT)  THEN  OPTR  = OPTR  «•  1; 

END; 

END;  /*  DO  WHILE  */ 

/*  ARRIVE  HERE  IF  BUFFER  FULL  */ 

CALL  PRINTCHAR (BELL) ; 

ENDEDIT1 : 

ENDEDIT 2;  CALL  CRLF ; 

END  LEDIT; 

/*  ******  ************************************************ 

OUTPUT  MODULE 

FUNCTION:  TO  UPDATE  THE  DAT  FILE  AND  THE 
INFORMATION  JUST  EDITED  TO  THE  MESSAGE  FILE. 

******************************************************  * / 

INCSMSG:  PROCEDURE; 

IF  (MSGSAREA:=MSGSAREA  + 1)  < 100H  THEN 

RETURN ; 

IF  DISKWRITE  (.  MSGSFCB)  <>  0 THEN 
CALL  ERROR  (4)  ; 

MSGSAREA  = 80H; 

END  INCSMSG; 

MOVES MSG:  PROCEDURE; 

IF  PRINTSLABEL  THEN  DATSAREA  = 3SCODESA; 

ELSE  DATSAREA  = BSCODESA  ♦ DLSLEN  ♦ 1; 

DO  WHILE  DAT  <>  EOC ; 

MSG  = DAT; 

CALL  INCSMSG; 

CALL  INCSDA; 

END; 

MSG  = CR; 

CALL  INCSMSG; 

MSG  = LF: 

CALL  INCSMSG; 

END  MOVESMSG; 

WRI TESKSG:  PROCEDURE; 

MSG  = CTLZ; 

IF  DISKWRITE  (.MSGSFCB)  <>  0 THEN 
CALL  ERROR (4 
END  WRITESM5G; 

CLOSESFILES:  PROCEDUS 
IF  CLOSE ( .MSGSFCB 
CALL  ERROR (7 
DFCB  (12)  = SAVElE 

DFC3 j 32)  = SAVESR 

IF  CLOSE  (DATSFCB) 

CALL  ERROR  (6 
END  CLOSESFILES; 

BLANKSEUF:  PROCEDURE; 

DECLARE  A ADDRESS 
A = .BUFFER; 

DO  I = 1 TO  180; 

B = 0;  A = A 

END; 

END  BLANK SBU F ; 

BASESNEXTSDE:  PROCEDU 
DECLARE  I BYTE: 

DO  I = 1 TO  WMPTR 
BSCODESA  = 3 

END; 

WOBKSMAP  = WORKSMAP  > 3; 


) ; 
2; 


= 255  THEN 


XT; 

N ; 

= 255  THEN 
) ; 


, (B  BASED  A, I)  BYTE; 
♦ 1; 


RE; 

icc)6ESA  + 128; 
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2ND  BASES  NEXTSDE; 

UPD ATESDATSFILE:  PROCEDURE; 

WORKSMAP  = . MEMORY  : 

BSCODESA  = BASE JDATSAREA; 

DO  WHILE  BSCODESA  < TSDATSAREA; 

CALL  MOVESMSG: 

D?CB(12)  = WMPTR; 

DFCB  (32)  = WMPTR  (1)  ; 

CALL  SETDMA  (BSCODESA)  ; 

IF  DISKWRITE (D ATSFCB)  <>  0 THEN 
CALL  ERROR  (4)  ; 

CALL  BASESNEXTSDE; 

END  ; 

CALL  SETS  DMA  (80H)  ; 

END  UPDATESDATSFILE; 


EDIT:  PROCEDURE; 

CONTINUE; 

DO  WHILE  (DATSAREA  < TSDATSAREA) ; 

CALL  NEXTSDE; 

IF  PROMPT  THEN 

DO  WHILE  DAT  <>  EOP: 

CALL  ASKSQUESTION ; 

WARN  = TRUE; 

DO  WHILE  WARN; 

TATI  I pnT? ■ 

NBUF (NPTR:=NPTR+ 1)  = '/'; 

CALL  CHKSANS  WER ; 

END: 

CALL  NEXTSSF; 

END; 

ELSE 

DO; 

CALL  LEDIT: 

CALL  ENDSIP; 

END; 

IF  WARN  THEN  CALL  RESENTER; 

ELSE 
DO  ’ 

CALL  UPDATESDAT; 

CALL  BLANKSBUF: 

CALL  BASESNEXTiDE; 

DATSAREA, CODESA  = BSCODESA; 

END; 

END;  /*  DO  WHILE  */ 

CALL  UPDATESDATSFILE; 

IF  MORE  THEN 
DO; 

CALL  READSMORE; 

GO  TO  CONTINUE; 

END; 

CALL  WRITESMSG; 

CALL  CLOSESFILES; 

GO  TO  BOOT; 

END  EDIT; 


/*******  START  MAIN  PROGRAM  HERE  ******  */ 

OLDSBUF  = (NEWS  BU F :=  . BUFFER) +90 ; 

OBUF  = 0; 

CALL  INIT; 

CALL  SELSWE; 

CALL  SETiMEM: 

CALL  READSDAT; 

CALL  LIFTHEAD: 

TSDATSAREA  = DATSAREA; 

BSCOD£SA,CODEJA.DATSAREA  = BASESDATS AR EA; 

WORKSMAP  = .MEMORY; 
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CALL  CRLF: 

CALL  PRINT  DATA  LABELS  TO  BE  IN  THE  REPORT?!'); 
CALL  PRINTCHaR  (CHAR  :=  READC)  ; 

CALL  CRLF; 

IF  CHAR  = 1 Y'  THEN  PRINTSLABEL  = TRUE; 

CALL  PRINT ( . ' DC  YOU  WISH  TO  BE  PROMPTED?!' ) ; 

CALL  PRINTCHAR ( CHAR : = R E ADC)  ; 

CALX  CRLF; 

IF  CHAR  = ' Y ' THEN  PROMPT  = TRUE; 

CALL  EDIT; 

EOF 
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/ * ****************************************************** 

PROGRAM  DESIGNED  TO  CREATE  DAT  EXECUTABLE  FILES  USED 
IN  CONJUNCTION  WITH  REPORT  ORIGINATION  SYSTEM  (ROS) . 

ROS  IS  DESIGNED  TO  GENERATE  FORMATTED  REPORTS. 


******* ***********************************************  */ 

100H: 


/*  ****************************************************** 

INITIALIZE  DECLARATIONS 

******************************************************  */ 

DECLARE 

LIT  LITERALLY  'LITERALLY', 


LIT 

LITERALLY 

BOOT 

LIT 

• oo6sh 

ENTRY 

LIT 

TRUE 

LIT 

' 1'  , 

FALSE 

LIT 

'O', 

' WHILE 

FOREVER 

LIT 

CR 

LIT 

' OD  H ' , 

LF 

LIT 

'OAH'  , 

DCNT 

BYTE, 

CTI 

LIT 

•O'  , 

CTS 

LIT 

' i ' ; 

: ********************: 

li 

. ********************* 

i AR  E 

ES 

LIT 

' 08 H ' , 

PERCENT 

LIT 

•25H  • , 

BELL 

LIT 

•07H* , 

TAB 

LIT 

' 09H  ' , 

EOP 

LIT 

'5EH ' , 

ENDSFILE 

LIT 

' 5CH  ' , 

EOC 

LIT 

' 7CH ' , 

ERR 

LIT 

' 7EH ' , 

CTLZ 

LIT 

MAH'  , 

RUBOUT 

LIT 

' 7 FH  ' , 

DATSFCB 

ADDRES 

INPUT  AND  EDITING  DECLARATIONS 


/*  BACKSPACE  */ 


DFCB  BASED  DATSFCB  (33)  BYTE, 

NUMiREC  BYTE, 

DLSLEN  • ■ BYTE, 

THEM  ADDRESS, 

RZCORDSMAP  ADDRESS, 

BMPTR  BASED  RECORDSMAP  BYTE, 

EXT  BYTE  INITIAL (0). 

STORE  ADDRESS, 

SP  BASED  STORE  BYTE. 

BSTORE  ADDRESS, 

SPTR  ADDRESS, 

BUFFER  M80)  BYTE, 

SIZESNBUF  LIT  '90', 

NEWSBUF  ADDRESS, 

N3UF  BASED  NEWSBUF  BYTE, 

NPTR  BYTE, 

CLDS3UF  ADDRESS, 

OBUF  BASED  OLDS BJF  BYTE, 

OPT  R BYTE. 

INSERT  BYTE  INITIAL  (FALSE), 

CHAR  BYTE, 

MODS  128$M ASK  LIT  '0FF80H',  /*  GIVES  MEMORY  SIZE 

IN  MULIPLES  OF  128  BYTE  BLOCKS  */ 

BDOSA  ADDRESS  INITIAL  (0006H) , 

SB  DOS  BASED  BDOSA  ADDttESS; 
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CRTIN:  PROCEDURE  BYTE; 

DO  WHILE  INPUT (CTS) ; 


END: 

RETURN  NOT  INPUT(CTI)  AND  07FH; 

END  CRTIN ; 

READC:  PROCEDURE  BYTE; 

/♦  GET  A CHARACTER  FROM  THE  CONSOLE  AND  TRANSLATE 
UPPER  CASE  V 

DECLARE  C BYTE: 

IF  (C:  = CRTIN)  >=  1 1 03000 1 B /*  LOWER  CASE  A */ 

AND  C <=  0111101  OB  /*  LOWER  CASE  Z */  THEN 
C = C AND  10  1$  1 1 1 1 B;  /*  BECOMES  UPPER  CASE  */ 
RETURN  C; 

END  READC; 

MON1:  PROCEDURE  (FUNC,  INFO): 

DECLARE  FUNC  3YTE,  INFO  ADDRESS; 

GO  TO  ENTRY; 

END  MON  1 ; 

MON2 : PROCEDURE  (FUNC, INFO)  BYTE: 

DECLARE  FUNC  BYTE,  INFO  ADDRESS; 

GO  TO  ENTRY; 

END  MON2; 

PRINTCHAR:  PROCEDURE  (3) ; 

DECLARE  3 BYTE; 

CALL  MON  1 (2,3)  ; 

END  PRINTCHAR; 

PRI NTCHARI:  PROCEDURE (C) ; 

DECLARE  C BYTE: 

IF  (C  AND  110300005)  = 0 /*  CONTROL  CHAR  */  THEN 

DO : 

CALL  PRINTCHAR  (EOP)  ; 

CALL  PRINTCHAR (C  OR  40H)  ; 

END: 

ELSE  CALL  PRINTCHAR  (C)  ; 

END  PRINTCH  ARI ; 

CRLF : PROCEDURE; 

CALL  PRINTCHAR  (CR)  ; 

CALL  PRINTCHAR  (LF)  ; 

END  CRLF; 

PRINT:  PROCEDURE  (A)  ; 

DECLARE  A ADDRESS; 

CALL  MON  1 (9,  A)  ; 

CALL  CRLF; 

END  PRINT; 

MOVE:  PROCEDURE  (SOURCE  , DEST, N)  ; 

DECLARE  (SOURCE, DEST)  ADDRESS, 

(S  BASED  SOURCE,  D BASED  DEST,  N ) BYTE; 

DO  WHILE  (N:  =N- 1)  <>  255; 

D=S ; SOURCE  = SOURCE+ 1 ; DEST=DEST+1 ; 

END; 

END  MOVE; 

FILL:  PROCEDURE {START, DEST, CHAR)  ; 

DECLARE  (START, DEST)  ADDRESS, 

(S  BASED  START,  CHAR)  BYTE; 

DO  WHILE  START  < DEST; 

S = CHAR: 

START  = START  ♦ 1; 

END; 

END  FILL; 

ERROR:  PROCEDURE  (I)  ; 


TO 
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DECLARE  I BYTE; 

DO  CASE  I: 

CALL  PRINT  ( . • LACK  ERROR  COMMAND  SPACE  S'); 

CALL  PRINT?.  1 DISK  WRITE  ERROR  S'); 

CALL  PRINT  (.'FILE  NOT  PRESENT  S'); 

END: 

CALL  CRLf : 

GO  TO  BOOT; 

END  ERROR; 

/ * ***************************************************'«** 

INPUT  AND  EDITING  MODULE 

***************** ***************************  **********  */ 

PROMPT:  PROCEDURE  (I)  ; 

DECLARE  I BYTE: 

CALL  MON1  (9,  EXPECTING  S')  ; 

DO  CASE  I: 

CALL  PRI NT ( . ' CO D E INFO  S'); 

CALL  PRINT?.  ' ERROR  COMDS  S‘); 

CALL  PRINT ?. 'PROMPT  INFO  S'); 

END; 

END  PROMPT; 

INCSRM : PROCEDURE: 

RECORDSMAP  = RECORDSMAP  + 1; 

END  INCSRM; 

GOSNEXTSREC:  PROCEDURE; 

/*  INCREMENTS  STORAGE  POINTER  TO  NEXT  EVEN 
RECORD  SECTOR  */ 

DO  WHILE  SPTR  < STORE: 

SPTR  = SPTR  + 128; 

NUM$REC=NUM$REC+1  ; 

IF  NUMSREC  = 123  THEN 
DO  ; 

EXT  = EXT  + 1 ; 

NUMSREC  = 0; 

END; 

END: 

STORE  = SPTR-  1 ; 

END  GOSNEXTSREC; 

MOVESDL:  PROCEDURE: 

DECLARE  A ADDRESS,  I BYTE; 

1=0;  A= RECORDSMAP* DLSLEN: 

DO  WHILE  (RECORDSMAP:  =RECORDSMAP*  1)  <=  A; 

RMPTR  = OBUF  ( I : =1  > 1 ) ; 

END; 

RMPTR  = EXT; 

CALL  INCSRM: 

RMPTR  = NUMSREC; 

END  MOVESDL; 

WRITE:  PROCEDURE: 

DECLARE  A ADDRESS; 

A = .MEMORY; 

DO  WHILE  (A:  =A+  1 2 3)  < STORE; 

CALL  MOVE (A,30H, 128)  : 

IF  (DCNT  :=  MON2  (21 , DATSFCB) ) <>  0 THEN 
CALL  ERROR ( 1) ; 

END: 

STORE=8STORE; SPTR  = 3 STORE; 

CALL  MON  1 (12,0)  ; /*  LIFT  READ  WRITE  HEAD  */ 

END  WRITE; 

IRCSSTORE:  PROCEDURE; 

/*  CHECKS  FOR  MEMORY  OVERFLOW  INCREMENTS  STORAGE  PTR  */ 
IF  (STORE :=STORE*1)  > TMEM  THEN 
CALL  WRITE; 
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END  INCSSTORE; 


MOVESSTORE:  PROCEDURE: 

/*  STORES  INFORMATION  FROM  INPUT  TO  FILS  MEMORY  AREA  */ 
DECLARE  I BYTE: 

DO  1=1  TO  OBUF: 

CALL  INCSSTORE; 

SP  = OBUF  (I)  ; 

END; 

END  MOVESSTORE; 

FILLSCODESZERO:  PROCEDURE; 

DECLARE  ( A , T)  ADDRESS,  B BASED  a BYTE; 

A = STORE;  T = SPTR  ♦ 128; 

DO  WHILE  (A:  = A+  1)  < T; 

B = 0; 

END; 

END  FILLSCODEiZERO; 

ENDJDL;  PROCEDURE: 

/*  CHARACTER  IS  A BAR  (|)  INDICATES  END  OF  CODE  AREA  */ 
CALL  GOSNEXTSREC; 

CALL  MOVESDL; 

CALL  MOVESSTORE; 

CALL  INCSSTORE; 

SP  = EOC: 

CALL  FILLSCODEiZERO; 

CALL  CaLF; 

CALL  PROMPT  (1)  ; 

END  ENDSDL; 

ENDSREC:  PROCEDURE; 

/*  CALL  WHEN  A UP-ARROW  IS  ENTERED  FROM  THE  KEYBOARD. 
INDICATES  END  OF  DECODED  INFORMATION  */ 

CALL  MOVESSTORE; 

CALL  INCSSTORE; 

SP  = EOP ; 

CALL  CRLr ; 

CALL  PROMPT  (0); 

END  ENDSREC; 

ENDSERR:  PROCEDURE; 

/*  CALLED  WHEN  (TILDE)  ENTERED  AT  KEYBOARD 
INDICATES  END  OF  ERROR  CHECKS  */ 

3ACKSSTORE:  PROCEDURE: 

STORE  = SPTR  + 127;  /*  TO  NEXT  RECORD  - 1 */ 

SP  = ERR; 

STORE  = STORE  - 1; 

OBUF  = OBUF  ♦ 1; 

DO  WHILE  (OBUF: =OBUF-1)  <>  0; 

IF  SP  = EOC  THEN 

CALL  ERROR  (0)  ; 

SP  = OBUF  (OBUF)  ; 

STORE  = STORE  - 1 ; 

END; 

SP  = ERR: 

END  BACKSSTORE; 

CALL  BACKSSTORE; 

CALL  GOSNEXTSREC; 

CALL  CRLF: 

CALL  PROMPT  (2)  ; 

IN u ENDSERR; 

ENDSF:  PROCEDURE: 

/*  CALLED  WHEN  END  FILE  ( ) 

END  OF  FILE  */ 

DECLARE  (EX, NR)  BYTE; 

CALL  MOVESS TORE ; 

CALL  INCSSTORE; 

SP=  ENDSFI LE ; 


BLACKSLASH  ENTERED  INDICATES 
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CALL  WHITE; 

CALL  INCSRM; 

EMPTR  = EOC;  /*  MARK  END  OP  RECORDSMAP  */ 

RECORDSMAP  = RECORDS  MAP  + DLJLEN:  /*  SAVE  EXT  AND  RN  OF 
NEXT  RECORD  TO  BE  WRITTEN  */ 

EMPTR  = DFCB  (12)  ; 

CALL  INCSRM: 

EMPTR  = DECS  (32)  ; 

EX  = DFCB  (12);  NR  = DFCB(32); 

DPCB  ( 32)  , DFCB  (12)  =0; 

CALL  MOVE  (.  MEMORY, BOH,  128)  ; 


EMPTR  = DFCB  (32)  : 

EX  = DFCB (12);  NR  = DFCB(32); 

DFCB  ( 32)  , DFCB  (12)  =0; 

CALL  MOVE  (.  MEMORY. 30H.  128)  ; 

IF  (DC NT  :=  MON2  (21 ,DAT$FCB) ) <>  0 THEN 

CALL  ERROR  (1); 

DFCE  ( 12)  = EX:  DFCB  (32)  = NR; 

IF  MON2 ( 16,  DATSFCB)  = 255  THEN  /♦  CLO 


IF  MON2 ( 1 6 . DATSFCB)  = 255  THEN  /♦  CLOSE  FILE  */ 

CALL  ERROR (2) ; 

GO  TO  BOOT; 

END  ENDSF; 

3ACKSUP:  PROCEDURE; 

IF  NPTR  > 0 THEN 
DO: 

NPTR  = NPTR  -1; 

CALL  PRINTCHAR  (BS)  ; 

CALL  PRINTCHAR  ('  ' ) ; 

CALL  PRINTCHAR  BS)  ; 

END; 

ELSE 

CALL  PRINTCHAR (BELL) ; 

END  BACKSUP; 

MOVESTOSOLD:  PROCEDURE: 

CALL  MOVE  (N EW$ BUF  + 1 ,OLD$BUF+1 , (03UF:=NPTR)  ) ; 

OPTR  = 0:  NPTR  =0; 

CALL  CRLF: 

END  MOVEJTO SOLD; 

ECHOSON:  PROCEDURE; 

CALL  PRINTCH AR (NBUF ( NPTR : = NPTR  + 1 ) :=  (OBUF (OPTR  : =OPTR+  1 ) ) ) ; 
END  ECHOSON; 

COPYSONE:  PROCEDURE: 

IF  OPTR  < OBUF  THEN 
CALL  ECHOiON: 

ELSE  CALL  PRINTCHAR  (BELL)  ; 

END  COPYSONE; 

PSMOVESCN:  PROCEDURE;  /*  PARTIAL  MOVE  OLD  TO  NEW  ♦/ 

DO  WHILE  OPTR  < OBUF; 

CALL  ECHOSON; 

END; 

END  PJMOVESON; 

ENTER:  PROCEDURE: 

IF  INSERT  THcN 

CALL  PRINTCHAR  (•>•); 

ELS  E 

CALL  PRINTCHAR  (' <•)  ; 

INSERT  = NOT  (INSERT)  ; 

END  ENTER; 

PRINTSOLD:  PROCEDURE; 

DECLARE  I BYTE: 

DO  1=  1 TO  OBUF: 

CALL  PRINTCHARI  (OBUF  (I)  ) ; 

END: 

CALL  CRLF : 

END  PRINTSOLD; 

PRINTSNEW:  PROCEDURE; 

DECLARE  I BYTE: 

DO  I * 1 TO  NPTR; 
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CALL  PRINTCHARI (N3UF  (I) ) ; 

END; 

END  PRINTJNEW; 

PRI NTS  BOTH:  PROCEDURE; 

CALL  PRINTSOLD; 

CALL  PRIN TS NEW ; 

END  PRINTSBOTH; 

COPY$EMiO$N:  PROCEDURE: 

/*  COPIES  REMAINING  CHARACTERS  FOR  OLD  TO  NEK  BUFFERS  */ 

DO  WHILE  OPTR  <=  OBUF; 

NBUF (NPTR:=NPTR*1)  = OBUF  (OPTR : =OPTR+1 ) ; 

END: 

CALL  PRINTCHAR  ('  + ')  ; /*  INDICATES  WHEN  DONE  */ 

END  C0PY$RH$0$N; 

3S$0$N:  PROCEDURE; 

/*  EACKSPACE  OLD  PTR  AND  NEK  PTR  1 CHAR  */ 

IF  (OPTR  > 0)  AND  (NPTR  > 0)  THEN 
DO: 

OPTR  = OPTR  - 1 ; 

NPTfi  = NPTR  - 1 : 

OBUF  = OBUF  - 1; 

END; 

ELSE 

CALL  PRINTCHAR (BELL)  ; 

END  BSSOSN; 

COP  Y$ON : PROCEDURE  (C,NEXT); 

DECLARE  (C, I, NEXT)  BYTE; 

I=OPTR; 

DO  WHILE  OBUF  (I  : = 1+  1 ) <>  C; 

IF  I > OBUF  THEN  /*  NO  MATCH  */ 

DO  ; 

iALL  PRINTCHAR (BELL) ; 

RETURN; 

END; 

END;  /*  DO  WHILE  */ 

IF  NOT (NEXT)  THEN  1=1-1; 

DO  WHILE  OPTR  < I; 

CALL  ECHOSON; 

EN  D * 

END  * COP Y$ON ; 

DELETE:  PROCEDU RE ( ECHO)  ; 

/*  ECHO  TRUE  INDICATES  TO  START  FROM  THE  CURRENT 
POSITION  OF  OLD  BUFFER  AND  ECHO  A % (PERCENT)  FOR  THE 
DELETED  CHARACTER.  ECHO  FALSE  INDICATES  TO  START  AT 
THE  BEGINNING  OF  THE  OLD  BUFFER  AND  DON'T  ECHO  FOR 
THE  DELETED  CHARACTERS.  */ 

DECLARE  (I, J, PI, CHARI, ECHO)  BYTE; 

IF  ECHO  THEN  Pi  = 0; 

ELSE  PI  = OPTR; 

CHARI  = READC- 

DO  WHILE  (OBUF  (PI  : = P1  + 1)  <>  CHARI); 

IF  PI  > OBUF  THEN  /*  NO  MATCH  */ 

DO; 

CALL  PRINTCHAR (BELL) ; 

RETURN; 

END; 

END:  /*  DO  WHILE  */ 

IF  ECHO  THEN 

DO  I = OPTR* 1 TO  PI  ; 

CALL  PRINTCHAR  (PERCENT)  ; 

END; 

/*  NOW  CONDENSE  THE  BUFFER  */ 

J=OPTR; 
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I=P  1: 

DO  WHILE  I <=  OBUF; 

OBUF(J:=J+1)  = OBUF  (I:  =1  + 1)  ; 

END : 

OBUF  = OBUF  - (P1-OPTR+1) ; 

END  DELETE; 

DELSN:  PROCEDURE; 

NPTR=0 ; OPTR=0; 

CALL  PRINTCHAR (ENDSFILE) ; 

CALL  CRLF; 

END  DELSN; 

DISPLAYSRMSOSN:  PROCEDURE; 

DECLARE  I BYTE; 

1 = °: 

CALI  CRLF; 

DO  WHILE  (I:  =1+1)  <=  OBUF: 

IF  I <=  OPTR  THEN  /*  EVEN  LINE  */ 

CALL  PRINTCHAR  ('  ' ) ; 

ELSE 

CALL  PRINTCHAR  (OBUF  (I)  ) ; 

END; 

CALL  CRLF; 

CALL  PRINTSNEW: 

END  DISPL AYSRKSOSN ; 

DELSO:  PROCEDURE: 

IF  OPTR  > 0 THEN 
DO: 

DECLARE  I BYTE; 

I = OPTR  - 1; 

DO  WHILE  (I: =1+1)  < OBUF; 

OBUF  (I)  = OBUF  (1+1)  ; 

END: 

CALL  PRINTCHAR (PERCENT)  ; 

OBUF  = OBUF  - T; 

END; 

ELSE  CALL  PRINTCHAR  (BELL)  ; 

END  DELSO; 

ESCAPE:  PROCEDURE: 

/*  TURNS  OFF  SPECIAL  MEANING  OF  CHARACTER 
AND  ENTERS  CHARACTER  IN  NEW  BUFFER 

CALL  PRINTCHARI (CHAR : =READC)  ; 

NBUF  (NPTR : = NPTR+ 1 ) = CHAR; 

END  ESCAPE; 

CONTSFILL:  PROCEDURE; 

CALL  MOVESSTORE; 

CALI  CRLF: 

END  CONTSFILL; 

PRINTSTAB:  PROCEDURE: 

IF  (NPTR  + 5)  > SIZESNBUF  THEN 
CALL  PRINTCHAR (BELL)  ; 

ELS  £ 

NBUF  (NPTR:  = NPTR+1)  = TAB; 

CALL  PRINTCHAR (TAB) ; 

END  PRINTSTAB; 

LEDIT:  PROCEDURE; 

/*  READS  CHARACTERS  FROM  THE  CONSOLE  AND 
USING  THE  PROCEDURES  OF  A LINE  EDITOR  */ 

OPTR  = 0;  NPTR  = 0; 

DO  WHILE  NPTR  < SIZESNBUF; 

IF  (CHAR : =R  EADC)  <=  CTLZ  THEN  /*  CONTROL 
DO  CASE  CHAR; 

/*  CAS  0 NULL  */ 


TO  FOLLOW 

V 


ALLOWS  EDITING 


CHAR  */ 
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/*  CASE  1 CONTROL  A */ 
CALL  BACKUP; 

/*  CASE  2 CONTROL  B */ 
CALL  MOVESTOSOLD; 

/*  CASE  3 CONTROL  C */ 
CALL  COPYSONE; 

/*  CASE  4 CONTROL  D */ 
DO: 

CALL  PSMOVEJON; 

GO  TO  ENDEDIT1; 

END; 

/*  CASE  5 CONTROL  E */ 
CALL  ENTER; 

/*  CASE  6 CONTROL  F */ 
GO  TO  ENDEDIT2; 

/*  CASE  7 CONTROL  G */ 
CALL  PRINTSBOTH; 

/*  CASE  8 CONTROL  H */ 
CALL  PlMOVESON; 

/*  CASE  9 CONTROL  I */ 
CALL  PHINTSTAB; 

/*  CASE  10  CONTROL  J */ 
GO  TO  ENDEDIT1  ; 

/*  CASE  11  CONTROL  K */ 

• 

/*  CASE  12  CONTOL  L */ 
CALL  COPYSRaSOSN; 

/*  CASE  13  CONTROL  M */ 
GO  TO  ENDEDIT1; 

/*  CASE  14  CONTROL  N */ 
CALL  BSSOSN; 

/*  CASE  15  CONTROL  0 */ 

•CALL  COPYSON  (READC,  FALSE) 

/*  CASE  16  CONTROL  P */ 
CALL  DELETE  (TRUE)  ; 

/*  CASE  17  CONTROL  Q */ 
CALL  DEL3N; 

/*  CASE  18  CONTROL  R */ 
CALL  DISPLAYS RMSOSN ; 

/*  CASE  19  CONTROL  S */ 
CALL  DELSO; 

/*  CASE  20  CONTROL  T */ 
CALL  CONTSF ILL ; 

/*  CASE  21  CONTROL  U */ 
CALL  COPYSON  (TAB,  FALSE)  ; 

/*  CASE  22  CONTROL  V */ 
CALL  ESCAPE; 

/*  CASE  23  CONTROL  W */ 

; /*  LATER  */ 
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/*  CASE  24  CONTROL  X */ 
CALL  DELETE  (FALSE)  ; 

/♦CASE  25  CONTROL  Y */ 

DO; 

CALL  PSMOVESON: 

CALL  MOVESTOSOLD; 

END; 

/♦  CASE  26  CONTROL  Z ♦/ 
CALL  COP YS ON (READC,TRUE) ; 


END; 

ELSE  /*  CHECK  SPECIAL  CASES  */ 

IF  CHAR  = RU30UT  THEN 
CALL  BACKUP; 

ELSE 

IF  CfaAR  = EOC  THEN  /♦  INDICATES  END  OF  CODED  INFO  */ 
DO;  CALL  MOVESTOSOLD;  CALL  ENDSDL;  END; 

ELSE 

I?  CHAR  = ERR  THEN 

DO;  CALL  MOVESTOSOLD;  CALL  EN DSERR ; END; 

ELSE 

IF  CHAR  = EOP  THEN  /♦  END  OF  PROMPT  INFORMATION  */ 
gj  CALI  MOV ESTOSOLD ; CALL  ENDSREC;  END; 

IF  CHAR  = ENDSFILE  THEN  /*  END  OF  FILE  */ 

DO:  CALL  MOVE$TO$OLD;  CALL  ENDSF ; END; 

ELSE 

DO; 

CALL  PRINTCHAR  (CHAR)  ; 

NBUF  (NPTR: =NPTR+1)=CHAR; 

IF  NOT (INSERT)  THEN  OPTR  = OPTR  + 1; 

IF  NPTR  = 72  THEN  CALL  PRINTCHAR (3ELL) ; 

END; 

END;  /*  DO  WHILE  */ 

/♦  ARRIVE  HERE  IF  BUFFER  FULL  ♦/ 

CALL  PRINTCHAR ( BELL) : 

ENDEDIT 1 : CALL  MO VE-STOSOLD ; 

ENDEDIT  2 : 

END  LEDIT; 


/♦  START  MAIN  PROGRAM  HERS  */ 


OLDSBUF  = (NEWSBUF  ;=  . BUFFER) +90 ; 
OBUF  = 0: 

CALL  MOVE  (.'DAT'  D AT $ FCB  + 9 , 3 ) ; 


CALL  MOVil  (.  • DAT ' , DATSFCB  + 9, 
CFCB.DFCBi12)  .DFCB  (32)  = 0: 

IF  MO N 2 ( 1 7 , DAT $FCB)  <>  255 


THEN  /*FILE  EXISTS  */ 


ciLL  PRINT(.'  FILE  ALREADY  EXISTS  S'); 

GO  TO  BOOT; 

END; 

IF  MCN2  (2  2,  DATSFCB)  = 255  THEN 
DO: 

CALL  PRINT (.'  OUT  OF  DIRECTORY  SPACE  S'); 
GO  TO  BOOT; 


END; 

IF  (DC NT: =MON2(15,DATSFC3))  = 255  THEN  /*  CAN'T  OPEN  ♦ 
CALL  ERROR  (2)  ; 

CALL  MON1  (12,0);  /*  LIFT  READ  WRITE  HEAD  */ 

/*  ARRIVE  HERE  WITH  NEW  FILE  CREATED  */ 

DFCB  (32)  = 1 : /*  RESERVE  FIRST  RECORD  FOR  RECORD  MAP  * 
TMEM  = (SBDOS  - 1)  AND  MODS  1 2 8SM AS K ; 

CALL  FILL  ( .MEMORY, TMEM, 0)  ; 

SPTB.RSCOHDJMAP  = .MEMORY; 

BSTCRE  = .MEMORY  + 128; 

STORE  = BSTORE ; 


/ 

/ 
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EOF 


NUMSREC  = 0; 

CALL  PRINT LENGTH  OF  DATA 
CALL  PRINTCH AR ( CHAR ; =RE ADC) ; 
CALI  CH LF * 7 

MEMGRY , DL iLEN  = CHAR  AND  OFH 
CALL  PROMPT  (0)  ; 

DO  FOREVER: 

CALL  LEDIT; 

FND; 


LABELS  TO  BE  US  ED  ?S  ' ) 


78 


bibliography 


1.  T o 1 1 e f s e n , T . S . , L C D R , U S N , " Reports  or  Readi- 

ness"/ NAvAl  r/AR  COLLEGE  REVIErt,  Vol.2b, 
co . 7 u -83 


3 . Naval  Electronic  Systems  C o m m a n a , TEST  AND 
EVALUATION  REPORT  X/C  13  INCREMENT  I (COMPREP) 
REPORT  37937-rtOO6-RU-00,  June  30,  1975 


3.  Naval  Electronic  System  Command/  FLEET  COMMAND 
CENTER  COMPOSTITE  OPERATIONS  REPORTING  SYSTEM, 
REPORT  PME-108-P0001 1 , August  30,  197b 


9.  Office  of  the  Chief  of  Naval  Coerations, 
STEERING  GROUP  PRESENTATION,  September  13, 
197b 


5.  CP/M  Interface  Guide,  DIGITAL  RESEARCH,  1975 


6,  Office  of  the  Chief  of  Naval  Ooerat ions 
Instruction  C35Q1.66A,  January  5,  197b 


7,'  PL/M  Programming  Manual,  INTEL  CORPORATION, 
1975 


79 


initial  distribution  list 


No . Coo i es 

Defense  Docuwentat i on  Center  2 

Cane  r on  Station 
Alenanaria*  Virginia  22314 

Library/  Code  0212  2 

Naval  Postgraduate  School 
vonterey,  California  93940 

Chairman,  Code  52  l 

Computer  Science  Department 
Naval  Postgraduate  School 
Monterey,  California  93940 

Assoc  Professor  U.  R.  Kodres,  Code  52*r  1 

Computer  Science  Department 
Naval  Postgraduate  School 
'■'out  ereyi  California  93940 

Assoc  Professor  G.  A.  Kildall,  Code  52*0  1 

Computer  Science  Department 
Naval  Postgraduate  School 
Monterey,  California  93940 

LT  Joseph  G.  Holyoak  1 

Supervisor  of  Shipbuilding 
Conversion  and  Repair 
574  Washington  St. 

Bath,  ^aine  04530 


80 


